macro

[antonov]

hello, I would like to know if it is possible to create a macro to select
the LAST WRITTEN row of a worksheet and then paste it at the end of another
sheet
thanks for any help

[Ardus Petus]

Sub MoveIt()
Dim srcRng As Range
Dim destRng As Range
Set srcRng = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).EntireRow
Set destRng = Worksheets("Sheet2").Cells(Rows.Count,
"A").End(xlUp).Offset(1, 0)
srcRng.Copy destRng
End Sub

Warning: fails if column A in either Sheet1 or Sheet2 is empty

HTH
--
AP

"antonov" <[email protected]> a écrit dans le message de
news:[email protected]...
> hello, I would like to know if it is possible to create a macro to select
> the LAST WRITTEN row of a worksheet and then paste it at the end of
another
> sheet
> thanks for any help
>
>
>