Error when triggering a macro to clear filtered data

Hello folks, how's going? So I created this sheet that is meant to work as a database, and another one, which has this header and works as a filter. I came up with a macro that will automatically trigger the filter event when a criteria is selected, and if all the criteria spaces are blank, it erases all the data that it was previously filtered. That VBA code worked fine for me at the Excel 2013, but it's not working properly at the Excel 2016 (I'm getting an error message at the "If Application.WorksheetFunction.CountA(Range("$D$4:$H$4")) = 0 Then"). Is there any alternative that could use to achieve that same result? Thanks in advance (present code below):

Please Login or Register  to view this content.

Hello Dave, thank you for your reply! The message I'm getting is "Error 28: Out of stack space". Another error that I'm getting is "The Clear method of the Range object has failed" (when I tried to clear a different field of the header)

Hello again, Dave! I tried that code you've sent me and it has worked out just fine, thank you very much for your assistance!