excel macro copies last row of data

[eng819]

I need an excel macro that will copy the last row of data from one worksheet within a workbook to another worksheet in the same work book. The last row number of data will alwasy vary

 

[eng819]

almost have it.

I need new data to always be in row 2 and keep bumping previous data down to next row

 

[HalfAce]

you mean like this?

Sub cpy()
Dim LR As Long
Sheets("Sheet2").Range("A2").EntireRow.Insert
LR = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Range("A2").EntireRow.Value = _
  Sheets("Sheet1").Rows(LR).EntireRow.Value
End Sub