Помогите с макросом для Excel - VB

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

Извините, если вопрос тупой, но очень надо! В общем так: На одном листе есть форма 'Форма', а данные для нее на другом листе 'Данные'. Нужно с листа 'Данные' по ДВУМ критериям из первой 'А' и второй 'В' колонки взять числа из третьей 'С', их просуммировать и записать в ячейку на листе 'Форма'. Принципиально сделать это в макросе, а не функцией, но как это сделать не знаю! Пожалуйста, помогите советом или ссылкой!

Решение задачи: «Помогите с макросом для Excel»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Суммируем_как_хочется()
Dim TAR As Object, SOU As Object
Dim CN1 As Variant, CN2 As Variant, CN3 As Variant
Dim Summa As Double
 
CN1 = 'A'
CN2 = 'B'
CN3 = 'C'
 
kr1 = '***'
kr2 = 12.789
 
Set TAR = Worksheets('Форма')
Set SOU = Worksheets('Данные')
 
ri = 1
Summa = 0
While SOU.Cells(ri, CN3) <> Empty
    If SOU.Cells(ri, CN1) = kr1 And _
       SOU.Cells(ri, CN2) = kr2 Then Summa = Summa + SOU.Cells(ri, CN3)
    ri = ri + 1
Wend
TAR.Range('a1') = Summa
End Sub