макрос

[Obey177]

ребят очень прошу подсказать что не так в скрипте

Sub Macro0002()
'
' Macro0001 Macro
'

'
    START_RANGE1 = Sheets("Ðåæèìû").Range("B2").End(xlUp).Row + 1
    END_RANGE1 = Sheets("Ðåæèìû").Range("B2").End(xlDown).Row
    
    START_RANGE = Sheets("Ñîñòîÿíèÿ").Range("B2").End(xlUp).Row + 1
    END_RANGE = Sheets("Ñîñòîÿíèÿ").Range("B2").End(xlDown).Row
    
    For i = START_RANGE To END_RANGE
      cellvalue = Worksheets("Ñîñòîÿíèÿ").Cells(i, 2).Value
      Number = InStr(1, cellvalue, "Ó Ã ä Ð")
      If Number = 0 Then
        Worksheets("msg").Cells(i, 2).Value = "ANO OO-2  " + cellvalue
      ElseIf Number <> 0 Then
        For a = START_RANGE1 To END_RANGE1
        cellvalue1 = Worksheets("Ðåæèìû").Cells(a, 2).Value
        revtal = Replace(cellvalue, "Ó Ã ä Ð", cellvalue1, 1, 1)
        Worksheets("msg").Cells(a + i, 2).Value = "ANO OO-2  " + revtal
        Next
      End If
      
    
    
    'Sheets("msg").Cells(i, 2).Paste
    'if Str = InStr(1, Worksheets("Ninoiyiey").Cells(i, 2).Value, "O A a ?")
        
        'Sheets("msg").Range("A" + Str(i)).FormulaR1C1
    Next i
    
End Sub

он должен если нет определенного слова просто скопировать строку а если есть прогнать ее по циклу a (заменить и добавить новую строку на лист) но пока он только лиш заменяет строки которые сделал

[EducatedFool]

1) выложите код без кракозябров (с читаемой кириллицей)
2) прикрепите пример файла Excel

а то не очень понятно, что есть изначально, и что надо получить

[EducatedFool]

1) выложите код без кракозябров (с читаемой кириллицей)
2) прикрепите пример файла Excel

а то не очень понятно, что есть изначально, и что надо получить