Удаление пустых строк VBA

Sub DeleteEmptyRows() 
LastRow = ActiveSheet.UsedRange.Row - 1_ + ActiveSheet.UsedRange.Rows.Count     

'определяем размеры таблицы 
 Application.ScreenUpdating = False 
 For r = LastRow To 1 Step -1 

 'проходим от последней строки до первой 
        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete 

 'если в строке пусто - удаляем ее 
 Next r 
End Sub