Упорядочить ячейки содержащие значения 1 и 0 в восьми столбцах - VBA

Формулировка задачи:

Помогите пожалуйста с макросом.нужно упорядочить ячейки содержащие значения 1 и 0 в восьми столбцах .значения записаны по столбцу начиная от 28 строки в последовательности (которая должна быть сохранена),но с большим количеством пробелов между собой.а нужно все значения в столбцах соблюдая ту же последовательность начиная с 28 строки раставить без пробелов.нужен макрос при запуске которого будет во всех восьми столбцах одновременно пропишет значения без пробелов,по сохраняя их последовательность записанную начиная с 28 строки в каждом из столбцов.файл с примером есть.

Решение задачи: «Упорядочить ячейки содержащие значения 1 и 0 в восьми столбцах»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Уплотнение_данных()
    Dim i&, j%, k&, LastRow%, A, B
    With ActiveSheet.UsedRange
        LastRow = .Rows.Count - .Row + 1
    End With
    With Range("A28:O" & LastRow)
        A = .Value
        B = .Formula
        For j = 1 To 15 Step 2
            k = 0
            For i = 1 To UBound(A)
                If Trim(A(i, j)) <> "" Then
                    k = k + 1
                    B(k, j) = B(i, j)
                End If
            Next i
            For k = k + 1 To UBound(A)
                B(k, j) = Empty
            Next k
        Next j
        .Formula = B
    End With
End Sub