Sub деп_ca()

'Application.Calculation = xlManual
'Application.ScreenUpdating = False
i = 3
j = 5



For i = 3 To 1500
q1 = ActiveWorkbook.Worksheets("RepEqv").Cells(i, 40)
    
    
    For j = 5 To 46
    q2 = ActiveWorkbook.Worksheets("calc").Cells(j, 20)
   
    If q1 = q2 Then
    On Error Resume Next
    
        If ActiveWorkbook.Worksheets("RepEqv").Cells(i, 8) = "р" Then
        p = ActiveWorkbook.Worksheets("calc").Cells(j, 21)
        ActiveWorkbook.Worksheets("calc").Cells(j, 21) = p + ActiveWorkbook.Worksheets("RepEqv").Cells(i, 6)
        
        Else
        p = ActiveWorkbook.Worksheets("calc").Cells(j, 22)
        ActiveWorkbook.Worksheets("calc").Cells(j, 22) = p + ActiveWorkbook.Worksheets("RepEqv").Cells(i, 6)
        
        End If
    End If
    Next j

Next i
'Application.ScreenUpdating = True
'Application.Calculation = xlAutomatic

End Sub