Sub macros()
'Выравнивание
    Dim i As Integer, j As Integer, s As Integer
    Dim Str As String
    Dim Rng As Excel.Range
    Dim Sh As Excel.Worksheet
    Set Sh = Application.ActiveSheet
    Set Rng = Sh.Range("B4:BZ256")
    RngAutoFit Rng
'Убираем лишние столбцы
    For i = 2 To 256
            If Cells(4, i).FormulaLocal Like "*query*" Then
                    Columns.Cells(i).ColumnWidth = 0
                End If
        Next i
'Определяем кол-во строк в нужном нам диапазоне
Application.Goto Reference:="Query1"
N = Selection.Rows.Count - 1
'Если находим пустую колонку, то сжимаем её
    For j = 2 To 256
        s = 0
            For i = 5 To 4 + N
                    If IsEmpty(Cells(i, j)) Then
                        s = s + 1
                        End If
                Next i
            If s = N Then
                ls.Columns(j).ColumnWidth = 0
        Next j
End Sub

N = Selection.Rows.Count - 1