Macro to delete specific cells

Hello all,

I need a macro that does the following;

Deletes all ranges from D2 to H all the way down.

Thanks

sub delRng()
Worksheet.Rows("d2:h1048576").Delete
end sub

Originally Posted by PaulM100

Try:

ActiveSheet.Range("D2:H" & Range("D2").End(xlDown).Row).ClearContents

Thanks Paulm100... Dmcgov, says object is required. But Ill use the other option. thanks anyway