From: tran1728 on
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
From: FSt1 on
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
From: tran1728 on
Yes , exactely that i want, thanks so much.

"FSt1" wrote:

> 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
From: bala_vb on

tran1728;952064 Wrote:
> Yes , exactely that i want, thanks so much.
>
> "FSt1" wrote:
> -
> > 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 --

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

all the best




--
bala_vb