Заполнение ячеек, зная номер строки и значение

[frantic150]

Здравствуйте!

Помогите, пожалуйста, написать макрос!

Есть диапозон С5:С145, где должны быть данные. Но их должен вносить компьютер (VBA), зная следующие данные:
Эти данные под столбцами А и В. Под столбцом А числовые значения номера строки. Под столбцом В, соответственно, просто нужные нам значения.
И, как вы поняли, по этим значениям столбцов А и В, макрос должен заполнять С5:С145 на раб. листе.

Т.е.
если например А1 = 51, В1 = "5 упаковок",
то С51 = "5 упаковок"

Пожалуйста, помогите решить эту задачу!
Заранее благодарен.

[pivas]

Обязательно макрос или можно формулой?

[maxic]

Доброго времени суток.
Может так устроит?

Sub first()
i = 1
Do While Cells(i, 1).Value <> ""
j = Cells(i, 1).Value
       Cells(j, 3).Value = Cells(i, 2).Value
       i = i + 1
Loop
End Sub

[pivas]

Sub test()
Range("C5:C145").ClearContents
For i = 5 To 145
Cells(Cells(i, 1).Value + 4, 3).Value = Cells(i, 2).Value
Next i
End Sub

[frantic150]

to maxic

ДА! Супер! Огромнейшее спасибо!
зы Чего я только не перепробывал.. xD

[frantic150]

to pivas

спасибо за помощь!