Dragging Formulas Down

I have this formula that I use that works well for me. The only problem is I get this error if I only have one line and no other that need to be dragged down.

[CODE]Range("A1:D1").AutoFill Destination:=Range("A1:D" & Cells(Rows.Count, "H").End(xlUp).Row)CODE]

error.JPG


Thanks in advance!!!

If H has data in only row 1, then there are no cells in H for the code to count and then drag down for the other columns.. Add some data to some other rows in column H, then run it.

If you have data down H, it should drag down the other columns as desired. Worked for me.

I tested that line of code

Range("A1:D1").AutoFill Destination:=Range("A1:D" & Cells(Rows.Count, "H").End(xlUp).Row)

everything is ok but the error will appear if there are no data in Column H

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