View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
FSt1 FSt1 is offline
external usenet poster
 
Posts: 3,942
Default Copy and paste to the last row

hi
if i understand correctly, this should work for you....
Sub movedownone()
Dim r As Range
Set r = Range("A65000").End(xlUp)
r.Resize(1, 3).Copy Destination:= _
r.Offset(1, 0)
End Sub

regards
FSt1

"tran1728" wrote:

Dear ALL, pls help me for macro.
I want copy the last row of column A, B and C.
and Paste the row down.

Example, my last row of A is A120, copy cell A120:C120.
then Past to A121

Thanks so much