Макрос Excel

макрос Excel
Помогите пожалуйста написать макрос.
если в строке есть хотя бы одна пустая ячейка (одна и более) то удалить всю строку
мои вариант к сожалению не работает
Sub tt()
Dim x&, i&, j&, s$, ii&, a
x = Cells(Rows.Count, 2).End(xlUp).Row - 9
For i = 2 To x
If Cells(i, 6) = Empty Then
Rows(i).Delete
End If
Next
End Sub

  • могу написать программу, которая будет обладать необходимым Вам функционалом.
  • Замените строку
    For i = 2 To x
    на
    For i = x To 2 Step -1
    будет работать.
    Удалять строки надо с конца таблицы, так проще.

    количество строк в таблице определяет строка
    x = Cells(Rows.Count, 2).End(xlUp).Row - 9
    причем последние девять строк таблицы циклом не обрабатываются.
    Пустая ячейка проверяется не во всей строке, а только в 6 столбце.
    из кода можно убрать лишнее
    Sub tt()
    Dim x&, i&
    x = Cells(Rows.Count, 2).End(xlUp).Row - 9
    For i = x To 2 Step -1
    If Cells(i, 6) = Empty Then Rows(i).Delete
    Next
    End Sub