

Option Explicit
Sub abc()
Dim i, j, t, s
For i = 1 To [f1].End(xlDown).row
t = Split(Cells(i, "f").Value, "-")
If UBound(t) > 0 Then
s = t(1)
For j = 1 To UBound(t) - 1
t(j) = t(j + 1)
Next
t(j) = s
Cells(i, "h") = Join(t, "-")
Else
Cells(i, "h") = Cells(i, "f").Value
End If
Next
End Sub