Boa tarde!!

Sub EunaoEntendi()
MsgBox "Celula selecionada '" & ActiveCell.Value & "' e seu endereço é '" & ActiveCell.Address(False, False) & "'"
End Sub

Att

Experimente o metodo find.
Seria algo +/- assimm

'Determine aqui sua planilha e range
With Sheets("Plan1").Range("E:E")
     ' Carrega a variavel de Objeto Localizado
    Set Localizado = .Find(Procurar, LookIn:=xlValues, LookAt:=xlPart)  'Para localizar um texto exato na celula, mudar a propriedade para xlWhole
    ' Sempre que a variavel nao for numero ou texto, e ter que carregar algum objeto tem que usar o SET
'Se localizou  
    If Not Localizado Is Nothing Then
'Se tiver mais do que um valor igual
        EndPrimeiroItem = Localizado.Address  'guarda o endereço da célula do 1º.valor localizado   
        Do
            Localizado.Offset(1, 0).Select
            ActiveCell.value= "XYZ"          
 Set Localizado = .FindNext(Localizado)  'Segue a procura
        Loop While Not Localizado Is Nothing And Localizado.Address <> EndPrimeiroItem
    
    End If

End With

Tente usar o WorksheetFunction.Match (equivalente ao corresp), pq aí, não precisa de muito código pra ficar procurando o item....
vc não especificou qual a coluna onde a busca está acontecendo.... se puder, isso facilitaria...

tipo assim, ajuda a gente a te ajudar

Reinaldo, perfeito meu camarada!
Desculpe a demora de um Feedback, é que estive ausente aqui no serviço por alguns dias.

Mais sua dica matou a charada!
Mais uma vez, muito obrigado pela força!

Forte abraço!