Sub BajanPaul()
Dim lastRow As Long, i As Long
Application.ScreenUpdating = False
lastRow = ActiveSheet.UsedRange.Rows.Count
For i = lastRow To 6 Step -1
If Not IsNull(Rows(i).Text) And IsNull(Rows(i - 1).Text) And Not IsNull(Rows(i - 2).Text) And _
Not IsNull(Rows(i - 3).Text) And Not IsNull(Rows(i - 4).Text) And Not IsNull(Rows(i - 5).Text) Then
Range(Rows(i - 5), Rows(i)).Delete
i = i - 5
End If
Next
Application.ScreenUpdating = True
End Sub
|