Assume we can determine this from column A

Dim rng as Range
With Worksheets("Sheet1")
set rng = .Cells(rows.count,1),End(xlup)
End With
rng.EntireRow.Copy Destination:= _
worksheets("Sheet2").cells(rows.count,1).End(xlup) (2)

this copies the last row of sheet1 to the next empty row in sheet2

--
Regards,
Tom Ogilvy


"Jan" wrote in message
...
I'd need to help how to copy last row from a sheet to another


I'm a beginer

Thanks
Jan