macro to copy the formulas in Sheet2 to as many rows as rows available in Sheet1

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 12rows, then in sheet2 the formula in D1 should be copied and pasted from D2 to D12.

Hi try this

Sub aa()
Dim x As Long
x = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Sheet2").Range("d2").Copy
Worksheets("Sheet1").Range("d2:d" & x).PasteSpecial Paste:=xlPasteFormulas

End Sub

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

I have revised the sample file

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.

Could You upload sample with all changes You have said above?

Sorry I do not understand this

In sheet 2 the formulas from A3:U3 should be copied and pasted from A4:U4

Ok take a look at this and tell me is it ok?

Sub aa()
Dim x, y As Long
x = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row - 9
y = Worksheets("Sheet2").Cells(2, Columns.Count).End(xlToLeft).Column
Worksheets("Sheet2").Range("a3").Resize(x, y).FillDown

End Sub

Of course first clear the range A4:U13 in sheet2 to see how this code works

Look into attachment run code and check results (if it is not what you expected then make manually this what you need and send this back)

Sub aa()
Dim x, y As Long
x = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row - 9
y = Worksheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Column
Worksheets("Sheet2").Range("a3").Resize(x, y).FillDown

End Sub