Нужно сделать слияние ячеек

[svoiasvora]

Друзья подскажите
есть таблица вида:
a1 1 4
a1 2 5
a1 3 6

нужно привести ее к виду:

a1 1;2;3 4;5;6

Подскажите как? Буду очень признателен.

[IgorGO]

выполниет этот

Sub JoinData()
  Dim r As Long, c As Long
  r = 1
  Do
    c = WorksheetFunction.CountIf([a:a], Cells(r, 1))
    If c > 1 Then
      Cells(r, 2) = Join(WorksheetFunction.Transpose(Cells(r, 2).Resize(c, 1)), ";")
      Cells(r, 3) = Join(WorksheetFunction.Transpose(Cells(r, 3).Resize(c, 1)), ";")
      Rows(r + 1).Resize(c - 1).Delete
    End If
    r = r + 1
  Loop Until IsEmpty(Cells(r, 1))
End Sub

[svoiasvora]

Сообщение от IgorGO

выполниет этот

Sub JoinData()
  Dim r As Long, c As Long
  r = 1
  Do
    c = WorksheetFunction.CountIf([a:a], Cells(r, 1))
    If c > 1 Then
      Cells(r, 2) = Join(WorksheetFunction.Transpose(Cells(r, 2).Resize(c, 1)), ";")
      Cells(r, 3) = Join(WorksheetFunction.Transpose(Cells(r, 3).Resize(c, 1)), ";")
      Rows(r + 1).Resize(c - 1).Delete
    End If
    r = r + 1
  Loop Until IsEmpty(Cells(r, 1))
End Sub

Спасибо огромное.