Macro To Delete Empty Rows Based On Row Height?

I'm trying to create a macro to delete all empty rows but only if they are a certain row height. I currently have a macro that looks to the first cell and if it's empty, then it deletes the entire row. The only problem is that I would like to keep the shorter, empty rows to maintain my desired formatting. I will post the code I have if I can figure out how to do it properly and not violate the forum rules.

[code]
Sub DeleteEmptyRows()

'Cell A above and below each header contains white and gray text to maintain formatting when deleting empty rows'

Dim i As Long, LastRow As Long
LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row[code]......