Copy Last Draw & Paste

M

Michael168

I need a VBA which will always copy the last row of every sheet an
paste on the last row + 1 of the individual sheets.

I record the macro but that is not what I want and I don't know how t
modify the macro to make it works.

Can someone help?

Regards
Michae
 
D

Dave Peterson

Can you pick out a column that you can use to determine the lastused row?

I used column A for this code:

Option Explicit
Sub testme()
Dim LastRow As Long
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
With wks
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Rows(LastRow).Copy _
Destination:=.Rows(LastRow + 1)
End With
Next wks

End Sub
 
Top