I want to filldown the date shown in cell H1 to column D starting with D2 to
the last row with data in it. I'm not having any luck. Can someone help me
with this? I've looked on previous posts and haven't seen anything that can
help me. Keep getting errors.

Sub CENSUSFilldown()
Worksheets("cnsdlywrksht").Range("D2:D").Filldown
End Sub

Thanks for your help in advance!