Macro to copy formula vertically in sheet2, based on count of rows in sheet1

[flakedew]

I need a macro to copy the formulas in Sheet2 under columnD to as many rows as rows available in Sheet1.

Suppose if Sheet1 has entries in 13rows, then in sheet2 the formula in D1 should be copied and pasted from D2 to D13.

 

[Andrew Poulsom]

Try:

Sub Test()
    Dim LastRow As Long
    With Worksheets("Sheet1")
        LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
    End With
    With Worksheets("Sheet2")
        If LastRow > 1 Then
            .Range("D1").Copy .Range("D2").Resize(LastRow - 1)
        End If
    End With
End Sub

 

[flakedew]

Thanx for your response..
Sorry, I didnt put it right in the first instance.

In Sheet1 the data entry starts from B9.
In sheet 2 the formulas from A3:U3 should be copied and pasted from A4:U4 to number of rows as per count of rows from B9 of Sheet1.

Please help.