With Worksheets("Лист1")

Dim lLastRow As Long, i As Long
lLastRow = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 6 To lLastRow
If .Cells(i, 2).Interior.Color <> RGB(255, 230, 153) Then
.Cells(i, 2).Select
End If
Next i
End With

End Sub

Option Explicit         ' Обязательное объявление переменных
Option Compare Text     ' отсутствие чувствительности к регистру при сравнении символов
 
    Sub КопироватьЛист1_в_Лист2()
    Dim Sh1 As Worksheet
    Dim Sh2 As Worksheet
    Dim i As Long, i2 As Long
    Set Sh1 = Sheets("Товары для рекламы")
    Set Sh2 = Sheets("Витрина")
      For i = 3 To Sh1.Cells(Rows.Count, 6).End(xlUp).Row
      For i2 = 3 To Sh2.Cells(Rows.Count, 6).End(xlUp).Row
        If Sh1.Cells(i, 6).Value = Sh2.Cells(i2, 6).Value Then
              Rows(i).Copy Sh2.Cells(i2, 1)
        End If
      Next
      Next
    End Sub

Option Explicit         ' Обязательное объявление переменных
Option Compare Text     ' отсутствие чувствительности к регистру при сравнении символов
 
    Sub КопироватьЛист1_в_Лист2()
    Dim Sh1 As Worksheet
    Dim Sh2 As Worksheet
    Dim i As Long, i2 As Long
    Set Sh1 = Sheets("Товары для рекламы")
    Set Sh2 = Sheets("Витрина")
      For i = 3 To Sh1.Cells(Rows.Count, 6).End(xlUp).Row
      i2 = i2 + 1
        If Sh1.Cells(i, 6).Value = Sh2.Cells(i2, 6).Value Then
'              i2 = i2 + 1
              Rows(i).Copy Sh2.Cells(i2, 1)
        End If
      Next i
    End Sub