Макрос. Удаление пустых строк со сдвигом вверх - VBA

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

Доброе утро! Напишите пожалуйста макрос, который

удалит все пустые строки со сдвигом вверх

. Заполненных

строк более 50 тыс.

, среди них очень много пустых. Учитывая такое количество строк, предполагаю, что макрос хорошо будет работать при использовании

массива

. Пример файла прикрепляю во вложении.

Решение задачи: «Макрос. Удаление пустых строк со сдвигом вверх»

textual
                            Листинг программы 
                        

                            Sub Удаление_пустых_данных()
    Dim i&, j&, k&, A, B, LastCol&
    A = ActiveSheet.UsedRange.Value
    ReDim B(1 To UBound(A), 1 To UBound(A, 2))
    LastCol = UBound(A, 2)
    For i = 1 To UBound(A)
        If A(i, 1) <> "" Then
            k = k + 1
            For j = 1 To LastCol
               B(k, j) = A(i, j)
            Next j
        End If
    Next i
    ActiveSheet.UsedRange.Value = B
End Sub
                        