нужно удалить пустые ячейки из выбронного столбца.

[NewStudent07]

Пожалуйста, помогите. Я только учись писать макросы. Вот написала один, а он некоректно работает.
Цель: нужно удалить пустые ячейки из выбронного столбца. Мой макрос не удаляет пустые ячейки, если они идут одна за другой. Плиз, помогите, розобраться почему, так??

Sub Макрос3()
'Не удаляет 2 и больше подряд пустых ячейки
Dim R As Range
Set R = Application.InputBox("Ввыделите верхнюю левую ячейку", _
"Ввыделяем диапазон", Selection.Address, , , , , 8)
Range(R, R.Offset(100000, 0).End(xlUp)).Select
For Each Cell In Selection
If Cell.Value = 0 Then
Cell.Delete
End If
Next Cell
End Sub

[Hugo121]

Нужно идти снизу вверх.

[EducatedFool]

Нажмите Ctrl + G, потом кнопку «Выделить», потом — «пустые ячейки», потом - удалите выделенные ячейки

Так быстрее будет
(включите запись макросов, когда будете это делать)

[NewStudent07]

А может кто-нибудь знает мой макрос с циклом можна "подправить".
В цикле For each Next можна ка-то идти снизу вверх??
Всем спасибо за ответы!

[Hugo121]

Нет
For selection.cells.count to 1 step -1