If you are wanting to copy the date down into all the cells below D2 that
have been populated, I would use this code:

Range("H1").Select
Selection.Copy
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste

Hope that helps.
-Marc


"Tasha" wrote:

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!