Поиск по условию и с последующим удалением числового значения.

[Light]

Помогите, пожалуйста.
Нужен макрос который будет пробегаться по столбцу G начиная с 5 ячейки, находить и удалять числовые значения.
В столбце G находятся числа и адреса.

[Администратор]

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Макрос

Sub Макрос()
   
    Dim lr As Long, i As Long
   

    ' Отключение монитора, чтобы ускорить макрос.
        ' Можно ещё отключить формулы, если их много.
    Application.ScreenUpdating = False
   
    ' Поиск последней строки в столбце G.
        ' End не ищет в скрытых строках.
    lr = Cells(Rows.Count, "G").End(xlUp).Row
   
    ' Очистка ячеек, в которых числа.
    For i = 5 To lr
        If IsNumeric(Cells(i, "G").Value) Then
            Cells(i, "G").Value = Empty
        End If
    Next i
   
    ' Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation

End Sub