Перенос значения

[olegoriginal]

Нужно перенести определенное значение из одной ячейки в другую. В Конкретном случае в 3 колонки у нас пишется Samsung Galaxy s II. Нужно чтобы "Samsung" переносилось во вторую колонку "Бренд", а "Galaxy s II" оставалось в третьей колонке. То есть нужен какой-то макрос скорее всего, потому-что таких моделей в таблице будет много. Прикрепляю пример

[Казанский]

Запустите этот макрос. Потом можете продолжить заполнение ст. А, С и запустить снова - макрос не тронет уже разделенные строки.

Sub Oleg()
Dim v(), i&, s$()
With Range("A3", Cells(Rows.Count, "C").End(xlUp))
  v = .Value2
  For i = 1 To UBound(v)
    If Not IsEmpty(v(i, 1)) Then
      If IsEmpty(v(i, 2)) Then
        s = Split(v(i, 3), , 2)
        If UBound(s) Then
          v(i, 2) = s(0)
          v(i, 3) = s(1)
        End If
      End If
    End If
  Next
  .Value2 = v
End With
End Sub

[IgorGO]

строки с брендами:
Hewlett Packard
Western Digital
Ideal Power
Fujitsu Siemens
и им подобными лучше сразу удалить из списка