Oops iий пропустило очевидную ошибку - см. ниже:
Если о, то (. Клетки (I, 11), 11) = «115528» после этого. Гребет (I) .EntireRow.Delete
Если о, то (. Клетки (I, 11), 11) = «124957» после этого. Гребет (I) .EntireRow.Delete
быть:
Если о, то (. Клетки (I, 11), 6) = «115528» после этого. Гребет (I) .EntireRow.Delete
Если о, то (. Клетки (I, 11), 6) = «124957» после этого. Гребет (I) .EntireRow.Delete