Check whether one of the below would work for you

Sub Macro1()
Dim lnglastrow As Long
lnglastrow = ActiveSheet.Cells(Rows.Count, "E").End(xlUp).Row
Range("P11:AC11").AutoFill Destination:=Range("P11:AC" & lnglastrow)
End Sub

Sub Macro2()
Dim lnglastrow As Long
lnglastrow = ActiveSheet.Range("E11").End(xlDown).Row
Range("P11:AC11").AutoFill Destination:=Range("P11:AC" & lnglastrow)
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"LiAD" wrote:

Hi,

I had hoped the following code would copy the formulas from row 11 down as
far as there is something in the equilavent row in col E. So for example if
E100 contains a number (such as 283095) and E101 is empty then the P11-AC100
would be filled with formulas.

At the moment this code always copies down to row 109 irrespective of whats
in col E.

Any ideas on how to fix this?
Thanks
LiAD

LastRow = Range("E" & Rows.Count).End(xlUp).Row
If LastRow 109 then
LastRow = 109
End If
Range("P11:AC11").AutoFill Destination:=Range("P11:AC" & LastRow),
Type:=xlFillDefault