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