Example for column A

Sub copytest()
Range("A" & Rows.Count).End(xlUp).copy _
Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"marcde" wrote in message ...
I want to write a macro which searches for the last cell in a colum and copy this cell to the next cell below, each time the macro
is performed.