macro para copiar contenido celda con un click

Hola,
Puedes hacerlo mediante un código de VBA, este lo colocas en el evento Change del Worksheet.
 
Es decir, das clic derecho sobre el nombre de la hoja donde está el dato original, y sobre este menú seleccionas Ver Código, allí pegas lo que te estoy enviando.
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     If Target.Address = "$A$1" Then
         Sheets("HojaNueva").Range("A1").Value = Target
     End If
End Sub
 
Te explico, lo que hace es lo siguiente. Cuando das clic sobre alguna celda de la hoja donde has pegado este código, se ejecuta el evento SelectionChange, si la dirección de la celda que se seleccionó es igual a A1, entonces el valor de esa celda se pasará al Rango A1, de la hoja llamada HojaNueva.
 
La idea entonces es que reemplaces el nombre de la hoja y el rango de acuerdo con tu necesidad y pruebes para ver si te funciona.
 
Saludos, Tavopz

Hola,
Podría ser algo así:
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Range
    i = 1
    If Target.Count > 1 Then
         For Each c In Target
             Sheets("Sheet2").Range("A" & LTrim(Str(i))).Value = c.Value
             i = i + 1
         Next c
     Else
         Sheets("Sheet2").Range("A1").Value = Target
     End If
End Sub
 
Sin embargo, deberías tener mucho cuidado con el uso de tu hoja, porque cada que selecciones un rango esta información seleccionada se movería a la otra hoja.
 
Saludos, Tavopz