Sub Шматок()
    Dim rr As Range
    On Error Resume Next
    Set rr = Selection.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    If rr Is Nothing Then Exit Sub
        
    Dim cl As Range
    For Each cl In rr
        JobCell cl.Value, cl.Cells(1, 2)
    Next
End Sub
Private Sub JobCell(ByVal cellIn As Variant, cellOut As Range)
    If cellIn = "" Then
        cellOut.ClearContents
    Else
        cellIn = myReplace(cellIn)
    
        Dim arr As Variant
        arr = Split(cellIn, " ")
        cellOut.Resize(1, UBound(arr) - LBound(arr) + 1) = arr
    End If
End Sub
Private Function myReplace(ByVal txt As String) As String
    Dim vv As Variant
    For Each vv In Array("/", ":")
        txt = Replace(txt, vv, " ")
    Next
    myReplace = txt
End Function