[Alex Dark]

earcher

Public Sub блабла()
  блабла2 1, 2, 5, True
  блабла2 2, 5, 6, False

End Sub


Public Sub блабла2(колонка1, колонка2, колонка3, критерий)
  a = 1
  b = 1
  c = 1
  Do While Not IsEmpty(Cells(a, колонка1).Value)
    Поиск = False
    b = 1
    ЯА = Cells(a, колонка1).Value
    Do While Not IsEmpty(Cells(b, колонка2).Value)
      If UCase(ЯА) = UCase(Cells(b, колонка2).Value) Then
        Поиск = True
        If критерий Then
          Cells(c, колонка3).Value = ЯА
          c = c + 1
        Else
          Exit Do
        End If
          
        Exit Do
      Else
        b = b + 1
      End If
    Loop
    a = a + 1
    If (Not Поиск) And (Not критерий) Then
      Cells(c, колонка3).Value = ЯА
      c = c + 1
    End If
  Loop
  
End Sub

не проверял, но предложенный тобой пример перелопатила

добавлено через 1 минуту
V0land, может он тупых зверей обучает грамоте.
Да и фильтром пырцать туда сюда нудно