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

=ЛЕВСИМВ(D8;НАЙТИ("~";ПОДСТАВИТЬ(D8;" ";"~";2)))&CA13

<Item>   
   <CntrNumber>220248</CntrNumber>
   <Artikul>AFX</Artikul>
   <SiteName>AKAI</SiteName>
   <DescriptionENG>AFX</DescriptionENG>
   <DescriptionRUS>Контроллер для Serato DJ, 9 сенсорных ручек для эквалайзера и фильтра, управление 4 деками по одному USB-соединению, 8 чувствительных к скорости пэдов с RGB-подсветкой, обратная связь, 10 пэд-режимов для запуска "горячих" меток, лупов и слайсов</DescriptionRUS>
   <PriceGroup>G02</PriceGroup>
   <EdIzm>шт</EdIzm>
   <PriceUSD>215</PriceUSD>
   <PriceUAH>5482,5</PriceUAH>
   <ActPriceUSD/>
   <ActPriceUAH/>
   <DealerPriceUSD>193,5</DealerPriceUSD>
   <DealerPriceUAH>4934,25</DealerPriceUAH>
   <ActDealerPriceUSD/>
   <ActDealerPriceUAH/>
   <Status/>
   <Category>DJ</Category>
   <SubCategory>DJ контроллеры</SubCategory>
   <OH>1</OH>
   <MTD_MTK_Dealers>1</MTD_MTK_Dealers>
   <ER>0</ER>
</Item>