Попытка удалить строку, если в строке A нет данных: J

Я пытаюсь удалить строку, если нет данных изA:J

Я нашел этот код и пытался его отредактировать, но это удаляет весь листданные в конце концов.

Любая помощь будет принята с благодарностью

 Sub DeleteRows()
    Dim rngBlanks As Range
    Dim i As Integer

    For i = 1 To 10
        On Error Resume Next
        Set rngBlanks = Columns(i).SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If Not rngBlanks Is Nothing Then
            rngBlanks.EntireRow.Delete
        End If
    Next
 End Sub

Ответы на вопрос(2)

Ваш ответ на вопрос