В настоящее время у вас установлено разделение на запятые вместо пробелов, что объясняет, почему ничего не разделяется.
Когда выполняется разделение, вам выдаются четыре столбца данных, и поэтому я написал некоторый код, которыйсоздаст и удалит временные столбцы для защиты и данные, которые вы можете иметь в ячейках справа.
Формат выходного столбца также установлен на общий, поэтому по умолчанию он имеет дату и не показывает пустое времяв конце.
With Sheets("Sheet1")
.Columns("B").NumberFormat = "General"
.Columns("C:E").Insert Shift:=xlToRight
.Columns("A").TextToColumns Destination:=.Columns("B"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, DecimalSeparator:="."
.Columns("C:E").Delete
End With
Если вам нужна помощь или дальнейшие объяснения, просто оставьте комментарий, и я перезвоню вам.