IF … (AND) ошибка времени выполнения инструкции "13"

Мне нужна помощь в операторах if. В приведенном ниже коде: Первый, если … затем раздел работает так, как предполагалось, однако второй раздел создает ошибку времени выполнения «13». Может кто-нибудь, пожалуйста, объясните мне, как решить эту проблему? / Что я делаю неправильно?

Sub ASN_BaaN3() Dim i As Integer i = 0 ThisWorkbook.Sheets("BaaN").Activate Do While ThisWorkbook.Sheets("BaaN").Cells(2 + i, 1) <> "" 'CHECK NON SERIALIZED If Range("J" & 2 + i).Value = "N" Then Range("P" & 2 + i).Value = "Ok, Non Serialized" Range("P" & 2 + i).EntireRow.Interior.Color = RGB(198, 239, 206) End If If Range("J" & 2 + i).Value = "Y" And _ Range("M" & 2 + i).Value = "ACK" And _ Range("o" & 2 + i).Value = "TRUE" Then Range("P" & 2 + i).Value = "Ok, Non Serialized" Range("P" & 2 + i).EntireRow.Interior.Color = RGB(198, 239, 206) End If i = i + 1 Loop End Sub 

при вводе кода, подобного этому, я получаю ту же ошибку:

  If Range("J" & 2 + i).Value = "Y" Then If Range("M" & 2 + i).Value = "ACK" Then If Range("O" & 2 + i).Value = "TRUE" Then Range("P" & 2 + i).Value = "Ok, Non Serialized" Range("P" & 2 + i).EntireRow.Interior.Color = RGB(198, 239, 206) End If End If End If 

Также при вводе кода, подобного этому

  If Range("J" & 2 + i).Value = "Y" Then If Range("M" & 2 + i).Value = "Y" Then 

Пожалуйста помоги!

Давайте будем гением компьютера.