Dragging Formulas Down

I settled with the following but TMS is correct there must be an if then

'Dim i, LastRow
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = LastRow To 2 Step -1
If Cells(i, "A").Value <> "" Then
'Drags All formulas down as long as there is data
Range("A1:D1").AutoFill Destination:=Range("A1:D" & Cells(Rows.Count, "H").End(xlUp).Row)
End If
Next