Excel - Error en instruccion, copia mal

Hola a Todos.
Tengo la siguiente instrucción...
'Se desplaza a la ultima fila con datos
Range("A1").End(xlDown).Select

'Copia los datos de la celda activa
ActiveCell.Copy

'Inserta una fila nueva debajo
ActiveCell.Offset(1).EntireRow.Insert

'Pega la fórmula de la Celda Activa anterior copiada (AQUI EL ERROR)
Selection.Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Range("A1").Activate
......
...se copia la fórmula en TODAS las celdas de la nueva fila (la correspondiente a cada columna, A, B, C, D, E, F,... etc), y solo quiero que se copie en la celda inferior y nueva, de donde se había copiado (en este caso la columna A).

Gracias de antemano.