[Alex Dark]

Judge, гы... яж это и предложил...
Просто то о чем спросил ты, было не совсем понятно (первый пример)

добавлено через 10 минут
Щаз на втором примере помозгую. Если получится то сегодня нацарапаю, нет (извиняйте) завтра...

добавлено через 41 минуту
я вот тут накорябал.
работает для твоего второго примера, для ячейки на которой стот. Лучше всего зацепить на какую нить клавишу (CTRL+Н русская ) вроде свободна

Sub Макрос2()
Dim К, С, AC, aa, aa1
  С = ActiveCell.Row
  К = ActiveCell.Column
  AC = ActiveCell
  aa1 = UCase(ActiveCell.Value)
  For i = 8 To С
    aa = Cells(i, К).Value
    aa = UCase(Cells(i, К).Value)
    If aa = aa1 Then
      Cells(i, К).Select
      Selection.Copy
      Cells(С, К).Select
      Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
      Exit For
    End If
  Next
End Sub