I am using MS Excel 2007. A month or so ago I asked for help to reduce the
size of blank rows (currently 16 points) down to 8 points. The Excel experts
advised me to try this macro:

Sub Reduce_Height_of_Empty_Rows()
'-- Reduce_Height_of_Empty_Rows to 8pts
' D.McRitchie, 2008-02-23 in excel.newusers
Dim LastRow As Long
Dim I As Long
' Cells.Font.Size = 16
LastRow = Cells.SpecialCells(xlLastCell).Row
For I = LastRow To 2 Step -1
If Application.CountA(Cells(I, 1).EntireRow) = 0 Then
Cells(I, 1).EntireRow.Font.Size = 8
End If
Next I
End Sub

Whenever I run this macro, it doesn't do the job intended (it's hard to
explain -- because I know nothing about programming -- but it looks like the
macro is running in loops -- the rows appear to be stuttering, but not
reducing the size from 16 to 8), and when I press Escape, the debug is yellow
highlight at the "End IF" line.

As I mentioned above I know absolutely nothing about macro creation, so I am
at a loss as to what the problem is. Could one of the MVP Excel experts take
a quick look again at the macro above and give me some advice? Thank you.