Copy and paste to the last row

[tran1728]

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

 

[FSt1]

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]

Yes , exactely that i want, thanks so much.

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

 

[bala_vb]

Yes , exactely that i want, thanks so much.

:
-

excel is very flexible tool, you can record a macro manually and excute
it (play with it)

all the best