Формирование столбца, по данным из других столбцов - VB

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

Доброго времени суток, не сказать что у меня проблема, скорее затруднение. Дана таблица с числовыми значениями, около 2000 строк. Задача: Умножить значение столбика G на значения столбика М и сравнить с данными столбика L, если равны то записать в столбик N 1, если не равны то записать 0. Программа работает, но очень медленно, если выбрать диапазон строк >150 то программа просто зависает, в пределах 30-ти строк еще терпимо. Код:

                    Листинг программы
                
 
                        
                          
                    
Sub макрос3()
Dim kol As Range, cm As Range, os As Range, rez As Range
For Each kol In Range("G14:G50")
For Each cm In Range("M14:M50")
For Each os In Range("L14:L50")
For Each rez In Range("N14:N50")
If kol.Value * cm.Value = os.Value Then
rez.Value = 1
Else
If kol.Value * cm.Value <> os.Value Then
rez.Value = 0
End If
End If
Next
Next
Next
Next
End Sub

Подскажите как можно ускорить работу программы?

Решение задачи: «Формирование столбца, по данным из других столбцов»

textual
                            Листинг программы 
                        
Sub макрос5()
 
Sheets("14.7.").Range("N14:O24").FormulaR1C1 = Array("='14.3.'!RC[-9]*'14.7.'!RC[-1]", "=--(RC[-1]=RC[-3])")
  
End Sub