[Ajuda - Separar string delmitada]

Ola galera, to usando o Execell e queria que alguém do forum me ajudasse com uma duvida

Eu tenho a seguinte planilha:

F-001 SEP138-13,8kV

F-003 SEP138-13,8kV

F-004 SEP138-13,8kV

F-005 SEP138-13,8kV

F-006 SEP138-13,8kV

F-007 SEP138-13,8kV

F-008 SEP138-13,8kV

Gostaria de saber se alguém sabe desenvolver algum macro no Visual Basic para separar a primeira parte "F-001" para uma coluna diferente

Exemplo:

Coluna A= F001

Coluna B= Sep138-13,8kV

A planilha é bem extensa, vai até aproximadamente F-220

Eu só consegui chegar até isso:

Function StringElement(str As String, chr As String, ind As Integer)
Dim arr_str As Variant
arr_str = Split(str, chr)
StringElement = arr_str(ind - 1)
End Function

é bem simples, apenas separa em colunas unicas e não a planilha inteira

conto com a suas ajudas

Obrigado des de já