エクセルVBAについて質問です。

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A65536").End(xlUp).Select
    a = Selection.Row

    crow = 1
    ccol = 1
    e = 1
    For b = 1 To a
        d = Cells(b, 1)
        If d <> "" Then
            Cells(b, 1) = ""
            Cells(crow, ccol) = d
            ccol = ccol + 1
        End If
        
        e = e + 1
        If e >= 6 Then
            e = 1
            ccol = 1
            crow = crow + 1
        End If
    Next b
End Sub

5組の中で入っていないセルの場合、加えないようにすれば

いいんですよね。