Соответствие строк в таблице

[Karakyl]

Добрый день, мастера excel.
Периодически приходится делать отчеты с очень неудобными исходными данными. Пероначальная таблица имеет следующий вид: http://c2n.me/iOjXX0
Необходимо, чтобы в столбцах A, C, E, G, I ячейки выстроились вот так: http://c2n.me/iOjXF6
Числовые значения должны перемещаться вместе с ячейкой слева от него, как видно на втором скриншоте. Во вложении исходный вариант таблицы. Поскольку в отчетах около тысячи строк, то автоматизация этого процесса поможет не тратить на него несколько часов. Заранее спасибо за помощь!

[IgorGO]

сделайте активным лист с данными, выполните этот

Sub TblMakedGood()
  Dim c As Long, r As Long, minV As String
  For c = 1 To 9 Step 2
    r = Cells(Rows.Count, c).End(xlUp).Row
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Cells(1, c).Resize(r, 1), _
      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("data").Sort
      .SetRange Cells(1, c).Resize(r, 2): .Header = xlGuess: .MatchCase = False
      .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
    End With
  Next
  r = 1
  Do
    minV = Cells(r, 1)
    For c = 3 To 9 Step 2
      If Cells(r, c) < minV Then minV = Cells(r, 3)
    Next
    If minV = "" Then Exit Sub
    For c = 1 To 9 Step 2
      If Cells(r, c) <> minV Then Cells(r, c).Resize(1, 2).Insert shift:=xlDown
    Next
    r = r + 1
  Loop Until False
End Sub

[Karakyl]

Огромное спасибо, все работает!