VBA - Quebrar texto em colunas

[RamosMolina]

Boa noite! Recebo questionário xls com perguntas e suas alternativas na coluna A, e tentei criar uma macro no VBA para quebrar o texto em colunas. Segue exemplo:

 

                  Coluna A

                  P1) Cidade
                  [a ] Rio de Janeiro
                  [b ] Salvador
                  [c ] São Paulo
                  [d ] Outras

 

                  P2) Sexo
                  [a ] Masculino
                  [b ] Feminino

 

                  P3) Ja tinha feito outro curso?
                  [a ] Sim (Quais)
                  [b ] Não

                  [c ] Não Opinou

 

Eu preciso que toda vez que localizar o texto "P", o texto seja separado por coluna:

 

                  Coluna A                     Coluna B                Coluna C

                  P1) Cidade                  P2) Sexo                 P3) Ja tinha feito outro curso?
                  [a ] Rio de Janeiro       [a ] Masculino         [a ] Sim (Quais)
                  [b ] Salvador                [b ] Feminino           [b ] Não
                  [c ] São Paulo                                              [c ] Não opinou
                  [d ] Outras

 

Tentei através do "IF" do Vba, mas não consegui. Alguém pode ajudar?

 

Sub SepararTextoColunas()
    Dim rng As Range
    Dim i As Integer, counter As Integer
    Set rng = Range("A1:A3000")
    i = 1
    For counter = 1 To rng.Rows.Count
        If rng.Cells(i) = "P" Then
            rng.Cells(i).EntireColumn.Split
        Else
            i = i + 1
        End If
    Next
End Sub

 

Obrigado