Debug показывает ошибку 1004 Application-defined or object-defined error в коде (выделил жирным):

Dim iLastRowOT As Long
Dim iLastRowRS As Long
Dim iLastRowSAP As Long
Application.ScreenUpdating = False
RS.AutoFilterMode = False
SAP.AutoFilterMode = False
otgruzka.AutoFilterMode = False
Application.Calculation = xlManual
iLastRowRS = RS.Cells(Rows.Count, 1).End(xlUp).Row
   For i = R1 To iLastRowRS
       If RS.Cells(i, e) = "ABC" Then RS.Cells(i, e) = "XXX"
       If RS.Cells(i, e) = "BAC" Then RS.Cells(i, e) = "YYY"
       If RS.Cells(i, e) = "CAB" Then RS.Cells(i, e) = "YYY"
       If RS.Cells(i, e) = "CBA" Then RS.Cells(i, e) = "YYY"
   Next
   iLastRowSAP = SAP.Cells(Rows.Count, 1).End(xlUp).Row
   For i = R1 To iLastRowSAP
       If SAP.Cells(i, l) = "A" Then SAP.Cells(i, l) = "XXX"
       If SAP.Cells(i, l) = "C" Then SAP.Cells(i, l) = "YYY"
   Next
   Range(Cells(2, 1), Cells(Rows.Count, 1)).ClearContents
   Range(RS.Cells(2, 3), RS.Cells(Rows.Count, 3).End(xlUp)).Copy Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
   Range(SAP.Cells(2, 1), SAP.Cells(Rows.Count, 1).End(xlUp)).Copy Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
   ActiveSheet.Range("$A$1:$A$17000").RemoveDuplicates Columns:=Array(1), Header:=xlYes
   iLastRowOT = otgruzka.Cells(Rows.Count, 1).End(xlUp).Row
   For i = R1 To iLastRowOT
      If Cells(i, b) = Cells(i, c) Then Cells(i, a).Interior.Color = vbGreen
   Next

В чем проблема не могу понять? Выше точно такие же 2 цикла прекрасно работают..