hiding rows based on a value in a column

Hello everyone,

I have a spreadsheet with data in the range D16:G1500

Please how would I write a macro that looks at the value in column D in reach row of the range and if the value is blank "" then it hides the row?
I dont want to use a worksheet change as the data is arranged in a pivot-table and I would like to make selections from the pivot table and then set the macro to hide the rows without data in column D.

Thank you very much, Lucy