Don't know what you want series filled and what just to fill down from your sample sheet
However if you split your column ranges to your own requirements, something on these lines
Text will not fill in series Numbers and Dates will
Sub Fill_Down()
Dim lrow As Long
lrow = Sheet5.Cells(Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = False
With ActiveSheet
.Range("B2:C" & lrow & ",E2:L" & lrow).FillDown
.Range("D2:D" & lrow).DataSeries xlColumns, xlLinear, xlDay, Step:=1, Trend:=False
End With
Application.ScreenUpdating = True
End Sub
Hope this helps
Bookmarks