شكرا للجميع على الإفادة
Sub SplitThem()
Application.ScreenUpdating = False
For Each cel In Range("a3:a100")
cel.Offset(0, 1) = Split(cel.Value, "-")
cel.Offset(0, 1) = Right(cel.Offset(0, 1), 1)
If cel = "" Then Exit For
Next cel
Application.ScreenUpdating = True
End Sub