VBA: FillDown

[DougStroud]

My code works for filling data down. I would like to perform the same w/ the formatting.
How would I alter the following code to include this?

Sub FillDown()
Dim ws1 As Worksheet
Dim LRow As Long
Set ws1 = Workbooks("Tgs Item Record Creator.xls").Sheets("Record Creator")
'Variable
LRow = ws1.Cells(Rows.Count, 8).End(xlUp).Row

With Range("a5:g" & Range("h" & Rows.Count).End(xlUp).Row)
       .FillDown
End With

With Range("S5:Y" & Range("h" & Rows.Count).End(xlUp).Row)
       .FillDown
End With

ws1.Calculate


End Sub

Thanks,

ds

 

[erik.van.geit]

Hi, Doug,

did you try copy ?

Range("a5:g5").Copy Range("a5:g" & Range("h" & Rows.Count).End(xlUp).Row)

kind regards,
Erik