need a macro

[JasonLeVan]

i need a macro to go to the 6th empty row in column d and delete all rows and column from there down

 

[VoG]

Try

Sub test3()
ActiveSheet.UsedRange.Offset(Range("D" & Rows.Count).End(xlUp).Row + 6).Delete
End Sub