Sub replaceByList()
    Dim replaceRn As Range, inputRn As Range, replacementsRn As Range
    Dim deletionRn As Range, delRn As Range
    
    ' Определяем диапазон со значениями для удаления и замен
    With ThisWorkbook.Sheets("ReplaceList")
        ' Значения для удаления
        Set deletionRn = Range(.Cells(2, 5), .Cells(.Rows.Count, 5).End(xlUp).Offset(0, 1))
        
        ' Значения для замены
        Set replacementsRn = Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1))
    End With
    
    With ThisWorkbook.Sheets("Specification")
        ' Устанавливаем стартовый диапазон
        Set replaceRn = Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
        ' Выделяем стартовый диапазон
        replaceRn.Parent.Activate
        replaceRn.Select
        ' Выведем запрос на изменение диапазона
        On Error Resume Next
        Set inputRn = Application.InputBox( _
                        Prompt:="Адрес для массовой замены", _
                        Title:="Замена по списку", _
                        Default:=replaceRn.Address(True, True, xlA1, True), _
                        Type:=8)
        Err.Clear
        On Error GoTo 0
        ' Если пользователь отменил выделение - выйдем из макроса с предупреждением
        If Not inputRn Is Nothing Then
            Set replaceRn = inputRn
        Else
            MsgBox "Диапазон не выбран", vbCritical
            Exit Sub
        End If
    End With
    
' Поиск строк для УДАЛЕНИЯ
' Если удаление не требуется, кусок можно закомментировать
    ' Для каждой строки в анализируемых данных
    For Each ccell In inputRn.Cells
        ' Если ВПР(текущее значение;список_на_удаление;1;0) находит что-то, то
        If Not IsError(Application.VLookup(ccell.Cells(1).Value, deletionRn, 1, 0)) Then
            ' Добавим текущую строку к диапазону на удаление
            If delRn Is Nothing Then
                Set delRn = ccell.EntireRow
            ' Если в диапазоне на удаление уже что-то есть - допишем в него текущую строку
            Else
                Set delRn = Union(delRn, ccell.EntireRow)
            End If
        End If
    Next ccell
    ' Удалим диапазон, если он не пустой
    If Not delRn Is Nothing Then delRn.Delete
''
    
    
' Поиск строк для ЗАМЕНЫ
' Если удаление не требуется, кусок можно закомментировать
    
    ' Для каждой пары заменяемых значений сделаем замену
    For Each rrow In replacementsRn.Rows
        replaceRn.Replace What:=rrow.Cells(1, 1).Value, Replacement:=rrow.Cells(1, 2).Value
    Next rrow
''
    
    ' Выведем сообщение о завершении работы (можно убрать)
    MsgBox "Done!", vbInformation
End Sub

Option Explicit

Sub A_Сравнение_Создание_Перенос()
  Dim a, d, r&, r2&, c&
  Worksheets(1).Activate
  Set d = CreateObject("Scripting.Dictionary")
  With Worksheets(2)
    a = Range(.Cells(1), .Cells(.Rows.Count, 1).End(xlUp))
    For r = 1 To UBound(a)
      If Not IsEmpty(a(r, 1)) Then d(Split(a(r, 1))(0)) = r
    Next
    a = Range(Cells(1), Cells(Rows.Count, 1).End(xlUp))
    For r = UBound(a) To 1 Step -1
      If Not IsEmpty(a(r, 1)) Then
        If d.exists(Split(a(r, 1))(0)) Then
          Rows(r + 1).Insert: r2 = d(Split(a(r, 1))(0)): c = c + 1
          .Rows(r2).Copy Cells(r + 1, 1): Rows(r + 1).Interior.Color = RGB(0, 255, 0)
        End If
      End If
    Next
  End With
  MsgBox "Вставлено " & c & " строк", , "Готово!"
End Sub

=ЕСЛИ(ЕОШИБКА(ЛЕВСИМВ(A3;НАЙТИ(".";A3)-1));" ";ЛЕВСИМВ(A3;НАЙТИ(".";A3)-1))

ColorIndex = 4

Sub W3W()
'
' W3W Ìàêðîñ
'

'
    Range("A94").Select
    Selection.Copy
    Sheets("Temp price").Select
    Cells.Find(What:="CH-S07FTXW", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Sheets("PRICE FULL").Select
    Range("A95").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Temp price").Select
    Cells.Find(What:="CH-S09FTXW", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Sheets("PRICE FULL").Select
    ActiveWindow.SmallScroll Down:=12
    Range("A103").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Temp price").Select
    Cells.Find(What:="CH-S12FTXP-NG", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("67:67").Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("PRICE FULL").Select
    Rows("104:104").Select
    Selection.Insert Shift:=xlDown
    Range("A105").Select
    Selection.Copy
    Sheets("Temp price").Select
    Range("A82").Select
    Cells.Find(What:="CH-S18FTXP-NG", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("99:99").Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("PRICE FULL").Select
    Rows("106:106").Select
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=6
    Range("A107").Select
    Selection.Copy
    Sheets("Temp price").Select
    Range("A105").Select
    Cells.Find(What:="CH-S24FTXP-NG", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("121:121").Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("PRICE FULL").Select
    Rows("108:108").Select
    Selection.Insert Shift:=xlDown
    Range("A110").Select
    Selection.Copy
    Sheets("Temp price").Select
    Range("A125").Select
    Cells.Find(What:="CH-S07FTXF-NG", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("4:4").Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("PRICE FULL").Select
    Rows("111:111").Select
    Selection.Insert Shift:=xlDown
    Range("A112").Select
    Selection.Copy
    Sheets("Temp price").Select
    Range("A28").Select
    Cells.Find(What:="CH-S09FTXF-NG", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("24:24").Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("PRICE FULL").Select
    Rows("113:113").Select
    Selection.Insert Shift:=xlDown
    Range("A114").Select
    Selection.Copy
    Sheets("Temp price").Select
    Range("A27").Select
    Cells.Find(What:="CH-S12FTXF-NG", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("58:58").Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("PRICE FULL").Select
    Rows("115:115").Select
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=6
    Range("A116").Select
    Selection.Copy
    Sheets("Temp price").Select
    Selection.Find(What:="CH-S18FTXF-NG", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Range("R62").Select
    Cells.Find(What:="CH-S18FTXF-NG", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Sheets("PRICE FULL").Select
    Range("A117").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Temp price").Select
    Range("A62").Select
    Cells.Find(What:="CH-S24FTXF-NG", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Sheets("PRICE FULL").Select
    ActiveWindow.SmallScroll Down:=9
    Range("A119").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Temp price").Select
    Cells.Find(What:="CH-S09FTXÑ", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Sheets("PRICE FULL").Select
    Range("A120").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Temp price").Select
    Range("S62").Select
    Cells.Find(What:="CH-S12FTXÑ", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Sheets("PRICE FULL").Select
    Range("A121").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Temp price").Select
    Range("T63").Select
    Cells.Find(What:="CH-S18FTXÑ", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("A64").Select
    Sheets("PRICE FULL").Select
    Range("A122").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Temp price").Select
    Cells.Find(What:="CH-S24FTXÑ", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Sheets("PRICE FULL").Select
    Range("A124").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Temp price").Select
    Range("R66").Select
    Cells.Find(What:="CH-S07FTXE", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("3:3").Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("PRICE FULL").Select
    Rows("125:125").Select
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=6
    Range("A126").Select
    Selection.Copy
    Sheets("Temp price").Select
    Range("A20").Select
    Cells.Find(What:="CH-S09FTXE-NG", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("23:23").Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("PRICE FULL").Select
    Rows("127:127").Select
    Selection.Insert Shift:=xlDown
    Range("A128").Select
    Selection.Copy
    Sheets("Temp price").Select
    Range("A20").Select
    Cells.Find(What:="CH-S12FTXE-NG", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Rows("57:57").Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("PRICE FULL").Select
    Rows("129:129").Select
    Selection.Insert Shift:=xlDown
End Sub