Помоги с VBA Rows(nrow1?, nrow2?).Select

Формулировка задачи:

короче понадобилось тут сделать одну штуку в Экзеле
For i = 1 To rowsCount
nrow1 = 40 * i - 4
nrow2 = nrow1 - 10
вот тут не знаю как передать параметры ругается
If nrow > rowsCount Then
i = rowsCount
End If
Next
блин когда-то делал что-то подобное я сейчас переклинило....а в хэлпе ничего понять не могут ....книг с примерами нет

Решение задачи: «Помоги с VBA Rows(nrow1?, nrow2?).Select»

textual
                            Листинг программы 
                        
                            Range(Cells(r, c), Cells(r1, c1)).EntireRow.Select
'Range(Cells(r, c), Cells(r1, c1) - любая колонка, но такого размера как тебе нужно