Sub DeleteNonConsecutiveRows()

Dim objCell As Cell

Dim objTable As Table

Dim nIndex As Integer, nRows As Integer

Dim strTable As String

Dim varCellEmpty As Boolean

 

Application.ScreenUpdating = False

 

‘  Delete contents in selected rows.

Selection.Delete

 

With Selection.Tables(1)

nRows = .Rows.Count

For nIndex = nRows To 1 Step -1

For Each objCell In .Rows(nIndex).Cells

If Len(objCell.Range.Text) > 2 Then

varCellEmpty = False

Exit For

Else

varCellEmpty = True

.Rows(nIndex).Delete

End If

Next objCell

Next nIndex

End With

 

Set objCell = Nothing

Set objTable = Nothing

 

Application.ScreenUpdating = True

End Sub