Sub vfrhjc()
    For i = 2 To 10000 'запуск первого цикла, перебор с 2 ячейки до первой пустой
    If Cells(i, 1) = 0 Then Exit For ' если ячейка пустая цикл закрывается
        If Cells(i, 3) > 1 Then 'если значение в ячейке 3 столбца больше 1
            For a = i To -100 Step -1 'то поднимаемся вверх 
                If Cells(a, 2) = Cells(i, 2) - 1 Then 'до тех пор пока значение не станет на единицу меньше
                    Cells(i, 4).FormulaLocal = "=" & Cells(i, 3).Address & "*" & Cells(a, 3).Address 'вставляется нужная формула в указанную ячейку
                    Exit For ' цикл завершился
                End If
            Next a ' повтор цикла который поднимается в верх
        End If
    Next i ' повтор цикла который опускается
End Sub