Макрос для очищения строк по критерию

Sub ClearTab()
    Dim i As Long, j As Long, k As Long, x As Range, a(), b()
    Set x = [A6:F11]: Application.ScreenUpdating = False
    If Application.CountA(x) = x.Count Then Exit Sub
    x.SpecialCells(4).EntireRow.ClearContents
    a = x.Value: ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
    For i = 1 To UBound(a, 1)
        If a(i, 1) <> "" Then
            j = j + 1
            For k = 1 To UBound(b, 2): b(j, k) = a(i, k): Next
        End If
    Next: x.Value = b
End Sub