Sub Udalenie_Pustyh_Stolbtsov()
Dim c As Long, FirstColumn As Long, LastColumn As Long
FirstColumn = ActiveSheet.UsedRange.Column
LastColumn = ActiveSheet.UsedRange.Columns.Count - 1 + ActiveSheet.UsedRange.Column
    For c = LastColumn To FirstColumn Step -1
        If Application.CountA(Columns(c)) = 0 Then
            Columns(c).Delete
        End If
    Next c
End Sub

Sub DeleteEmptyRows() 
 Dim i
 LastRow = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count 
 Application.ScreenUpdating = False
  For i = LastRow To 1 Step -1 
     If Application.CountA(Columns(i)) = 0 Then Columns(i).Delete 
  Next i 
 End Sub

Sub DeleteEmptyCol() 
Dim i&, LastRow&, LastCol&
   with ActiveSheet.UsedRange
      LastRow = .Row - 1 + .Rows.Count 
      LastCol = .Column - 1 + .Columns.Count 
   end with
   Application.ScreenUpdating = False
   For i = LastCol To 1 Step -1 
      If Application.CountA(range(cells(2,i),cells(LastRow,i))) = 0 Then Columns(i).Delete 
        Next i 
 End Sub

={filter(A:A; len(A:A)); filter(B:B; len(B:B)); filter(C:C; len(C:C))}