Sub rozbij()
Dim tekst As String, tablica, i As Long
'zakładam że dane znajdują się w pierwszej kolumnie od wiersza 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
tekst = Cells(i, 1)
'zamiana - na spacje
tekst = Replace(tekst, "-", " ")
'zamiana dwóch spacji na spację i - UWAGA - forum obcina dwie spacje do jednej
'po przekopiowaniu makra zmień w pierwszym cudzysłowie na dwie spacje
tekst = Replace(tekst, " ", " -")
'rozdzielenie ciągu
tablica = Split(tekst, " ")
tablica(0) = zamiana(tablica(0))
'zapisanie ciągów w arkuszu w tym samym wierszu i kolumnie 2
Cells(i, 2).Resize(1, UBound(tablica) + 1) = tablica
Next i
End Sub

Function zamiana(ByVal skrot As String) As String
Select Case UCase(skrot)
Case "LDR"
    zamiana = "lider"
Case "SR"
    zamiana = "syr"
Case Else
    zamiana = skrot
End Select

End Function

Sub rozbij()
Dim tekst As String, kom As Range, tablica
'pobranie tekstu
tekst = Application.InputBox("Wskaż komórkę z danymi", Type:=2)
'wyjście jeśli tekst brak
If tekst = "" Then Exit Sub
'pobranie adresu komórki docelowej - zakładam, że w prawo bedziemy wstawiać fragmenty tekstu
Set kom = Application.InputBox("Wskaż komórkę docelową", Type:=8)
'wyjście jeśli brak
If kom Is Nothing Then Exit Sub
'zamiana - na spacje
tekst = Replace(tekst, "-", " ")
'zamiana dwóch spacji na spację i -
tekst = Replace(tekst, " ", " -")
'rozdzielenie ciągu
tablica = Split(tekst, " ")
'zapisanie ciągów w arkuszu
kom.Resize(1, UBound(tablica) + 1) = tablica
Set kom = Nothing
End Sub