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