Segue modelo que procura apenas na coluna E; veja se consegue adaptar

Sub UsoFind()
Dim Procurar As String
Dim localizado, EndPrimeiroItem
Application.ScreenUpdating = False

Procurar = InputBox("Digite a palavra a ser localizada...", "Localizar Registro")
If Procurar = "" Then Exit Sub

Sheets("Plan1").Select
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
    
    If Not localizado Is Nothing Then
        EndPrimeiroItem = localizado.Address  'guarda o endereço da célula do 1º.valor localizado
        
        Do
            'Localizado.Interior.ColorIndex = 15  'Pinta em Cinza o interior da célula
            localizado.Select ' Seleciona uma celula abaixo
            ActiveCell.Font.ColorIndex = 3 'Fonte vermelha
            ActiveCell.Font.Bold = True
            localizado.Offset(1, 0).Select
            Set localizado = .FindNext(localizado)  'Segue a procura
        Loop While Not localizado Is Nothing And localizado.Address <> EndPrimeiroItem
    
    End If

End With
End Sub

Segue modelo que procura apenas na coluna E; veja se consegue adaptar

Sub UsoFind()
Dim Procurar As String
Dim localizado, EndPrimeiroItem
Application.ScreenUpdating = False

Procurar = InputBox("Digite a palavra a ser localizada...", "Localizar Registro")
If Procurar = "" Then Exit Sub

Sheets("Plan1").Select
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
    
    If Not localizado Is Nothing Then
        EndPrimeiroItem = localizado.Address  'guarda o endereço da célula do 1º.valor localizado
        
        Do
            'Localizado.Interior.ColorIndex = 15  'Pinta em Cinza o interior da célula
            localizado.Select ' Seleciona uma celula abaixo
            ActiveCell.Font.ColorIndex = 3 'Fonte vermelha
            ActiveCell.Font.Bold = True
            localizado.Offset(1, 0).Select
            Set localizado = .FindNext(localizado)  'Segue a procura
        Loop While Not localizado Is Nothing And localizado.Address <> EndPrimeiroItem
    
    End If

End With
End Sub

Ola bom dia!

Consegui sim, obrigado pela sua ajuda amigo, segue modelo como ficou

Sub UsoFind()

Dim Procurar As String
Dim localizado, EndPrimeiroItem
Application.ScreenUpdating = False

Procurar = InputBox("Digite a palavra a ser localizada...", "Localizar Registro")
If Procurar = "" Then Exit Sub

Sheets("Plan1").Select
With Sheets("Plan1").Range("E:E")

Set localizado = .Find(Procurar, LookIn:=xlValues, LookAt:=xlPart)

localizado.Offset(0, 0).Select

End With

End Sub