Macro to delete empty rows based on row height.

[lans4rd]

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. Thank you in advance for any assistance you can provide.

[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

For i = LastRow To 1 Step -1
If Cells(i, 1) = "" Then Rows(i).Delete
Next



End Sub

[Code]