Как скрыть пустые строки средствами VBA?

Программное скрытие макросом VBA

Теперь речь пойдет о том как программно скрыть пустые строки макросом. Возьмем процедуру, при помощи которой мы уже удаляли пустые строки и внесем в её программный код небольшие изменения. Заменим команду Rows(r).Delete на Rows(r).Hidden = True 

Sub Skryt_Pustye_Stroki()

Dim r As Long, FirstRow As Long, LastRow As Long

FirstRow = ActiveSheet.UsedRange.Row

LastRow = ActiveSheet.UsedRange.Rows.Count - 1 + ActiveSheet.UsedRange.Row

For r = LastRow To FirstRow Step -1

If Application.CountA(Rows(r)) = 0 Then

Rows(r).Hidden = True

End If

Next r

End Sub