Помогите с макросом копипаста.

[Nitrex]

Есть книга excel с несколькими листами.

На одном листе список фирм. Когда около нужной тебе фирмы ставишь флаг "1" , то на втором листе выводится информация по фирме.
С этой информации необходимо скопировать 1 строчку на третий лист.

простой записью макроса получилось вот это:

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+r
'
    Range("D169").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("D9:O9").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=144
    Range("D169").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("D170").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("D10:O10").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Как бы теперь провернуть эту операцию еще 200 раз?
сам цикл, насколько я помню из институтской программы

For i = 1 To 200
Cells(i + 1, 1) = i

Но вот как заставить каждый раз спускаться на 1 ячейку вниз я не знаю.
Заранее спасибо за помощь!

[Nitrex]

Решено.

Sub Macro1()
    Dim r As Integer
    For r = 169 To 323
        Cells(r, 4).Value = 1
        Range(Cells(r - 160, 4), Cells(r - 160, 15)).Copy
        Range(Cells(r - 160, 4), Cells(r - 160, 15)).PasteSpecial xlPasteValues
        Cells(r, 4).ClearContents
    Next r
End Sub

Предварительно во все клеточки прописать формулу, откуда им забирать данные.

[roborrr]

вы копируете Range("D9:O9") и вставляйте на том же месте. зачем? перед вставкой, выберите место, где вставить:
Range("D9:O9").Select
Selection.Copy
Range("где нужно вставить скопированное").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

a цикл Можно сделать так:

For j = 0 To 199
Range(Cells(169 + j, 4), Cells(169 + j, 4)).Select ' вместо Range("D169")
ActiveCell.FormulaR1C1 = "1"
Range(Cells(9 + j, 4), Cells(9 + j, 15)).Select ' вместо Range("D9:O9")
Selection.Copy
' дальше по вашему

Next j