Copy and paste to the last row

T

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
 
F

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
 
T

tran1728

Yes , exactely that i want, thanks so much.

FSt1 said:
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
 
B

bala_vb

tran1728;952064 said:
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top