Private Sub CommandButton1_Click()
      
     Dim sheet As Worksheet
     Application.ScreenUpdating = False
     For Each sheet In ThisWorkbook.Worksheets
      
         LastRow = sheet.UsedRange.Row - 1 + sheet.UsedRange.Rows.Count    'определение размеров таблицы
         MsgBox (LastRow)
         Dim r As Integer
         For r = LastRow To 1 Step -1           'проход от последней строки до превой
             'h = Application.CountA(Rows(r))
             If Application.CountA(Rows(r)) = 0 Then sheet.Rows(r).Delete   'если в строке пусто удаляем её
         Next r
          
         LastColumn = sheet.UsedRange.Column - 1 + sheet.UsedRange.Columns.Count
         MsgBox (LastColumn)
         Dim k As Integer
         For k = LastColumn To 1 Step -1           'проход от последней колонки до превой
             If Application.CountA(Columns(k)) = 0 Then sheet.Columns(k).Delete   'если в колонке пусто удаляем её
         Next k
     Next
      
End Sub