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

二回目の空白までが 一区切りとして 処理するようにしました。

Sub Macro1()
'
' Macro1 Macro
'

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

    crow = 1
    ccol = 1
    e = 1
    f = 0
    For b = 1 To a
        d = Cells(b, 1)
        If d = "" Then
            Select Case f
            Case 0
                f = 1
            Case 1
                f = 2
            End Select
        Else
            Cells(b, 1) = ""
            Cells(crow, ccol) = d
            ccol = ccol + 1
        End If
        
        e = e + 1
        If f >= 2 Then
            e = 1
            f = 0
            ccol = 1
            crow = crow + 1
        End If
    Next b
End Sub