Sub Fill()
Dim LR As Long, LC As Integer, i As Integer
LR = Sheets("Configs").Range("K5").Value
With Sheets("Builder")
LC = .Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To LC
.Cells(2, i).AutoFill Destination:=.Range(.Cells(2, i), .Cells(LR, i))
Next i
End With
End Sub
No comments:
Post a Comment