Este vídeo explica:

https://youtu.be/uqfWPGz0AyA

Mais vídeos relacionados:

https://www.youtube.com/results?search_query=vba+separar+texto+em+colunas

Bem vindo ao Planilhando, @mauriiciol

Insira um módulo normal no VBA e cole o código abaixo:

Option Compare Text
Function ExtraiInfo(txt As String, TipoInfo As String) As String
  Dim arrTmp As Variant: arrTmp = Split(txt, "-")
  Application.Volatile
  Select Case TipoInfo
    Case "Bairro": ExtraiInfo = Trim(arrTmp(UBound(arrTmp) - 3))
    Case "Cidade": ExtraiInfo = Trim(arrTmp(UBound(arrTmp) - 1))
    Case "UF":     ExtraiInfo = Trim(arrTmp(UBound(arrTmp)))
  End Select
End Function

 Agora no Excel, na célula B2, use a fórmula:

=ExtraiInfo($A2;B$1)

 Arraste para baixo e depois para o lado direito pra preencher a tabela.

Método alternativo: se seu Excel for 2016 ou superior, não precisaria nada disso. Nem fórmula, nem VBA. Seria só usar a inteligência artificial oferecida pelo recurso "Preenchimento Relâmpago" que a extração é automática:

1. Coluna "Bairro":
   • Na célula B2, digite o bairro que está na A2 exatamente como está escrito, inclusive em letras maiúsculas: ATRAS DA BANCA
   • Com o cursor na B3, dê CTRL + E
2. Coluna "Cidade":
   • Idem ao anterior: na C2 digite PETROLINA
   • CTRL E na C3
3. Coluna "UF":
   • Idem, porém aqui vc vai "ensinar" o recurso a entender exatamente o que vc quer.
   • Em D2 digite PE
   • Em D3 CTRL +E. Note que da linha 9 em diante ele não entendeu exatamente o que vc pediu. Mas é só mostrar.
   • Na célula D9 digite agora BA. Note agora que nem precisou dar CTRL+E, ele mesmo já preenche corretamente. Se isso não aconteceu, dê CTRL+E novamente.

@EdsonBR

Muito obrigado pelo apoio e colaboração, o exemplo 1 deu super certo!!!

Agradeço!!

O Exemplo 2 deu algumas divergências..

Sucesso e ótimo Feriado!