Macro to paste formulas based on row count on another sheet?

[stevenash1367]

Sheet 1 has 2500 rows of data.
I need a formula in sheet 2 to paste formula until row 2500?
Row numbers can change so need a formula based on count of number of rows in sheet 1.
Data is filled from Column A till Column R.

Thanks.

 

[VoG]

Try

Sub atest()
Dim LR As Long
With Sheets("Sheet1")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A1:R" & LR).Copy
    Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteFormulas
End With
End Sub

 

[stevenash1367]

Thanks VoG.
But it just basically copies sheet 1 and pastes it onto sheet 2.
I added another macro to it to correct it.