посчитать количество строк

[Acclaim]

необходимо посчитать количество строк по условию, а затем вывести в другой файл результат
еще эти строки суммировать и также результат
кто сможет помогите

[uhm]

В экселе - СЧЁТЕСЛИ, СУММЕСЛИ.
В поиск.
В книжки по Visual Basic'у и/или Excel'ю.

[Acclaim]

Sub a()

Dim i As Integer
Dim m As Integer


Windows("Книга1").Activate
m = 0
n = 0
For i = 1 To 10000
If Cells(i, 36) = "1" Then
m = m + 1
End If
Next

For i = 1 To 10000
If Cells(i, 36) = "0" Then
n = n + 1
End If
Next

Windows("запуск").Activate
Range("C4") = m
Range("C5") = n



вроде так получилось
а как мне сделать чтобы по условию: в ячейках = 1
в листе2 суммировались строки по этому учловию?

[Acclaim]

вернее не сами строки а что внутри например в столбце В строки с 1 по 120 (при условии что у этих строк присутствуют ячейки со значением =1)