Olá, boa tarde galera!!
Sou iniciante em VBA, a partir de exemplos que retirei aqui do Forum, estou construindo uma planilha com varias macros, uma delas seria uma caixa ImputBox com campo para pesquisa, quando eu faço um busca, ele me retorna o que digitei e tambem o endereço da celula. Gostaria de alterar o codigo para que ele me retornasse os valores contidos nas colunas A, B, D, E e F, referente ao conteudo que eu encontrei na coluna C.

Public sCel
Public sLocaliza As Boolean

Sub Pesquisar()
    
    'Valor a pesquisar
    RefId = InputBox(Prompt:="Referência", _
          Title:="Pesquisar Rreferencia", Default:="Digite Aqui")
   
    If RefId = "Digite Aqui" Or RefId = vbNullString Then
        MsgBox "Operação Cancelada ou Valor Inválido"
        Exit Sub

    Else
        'Chama a Function
        ProcuraRefId (RefId)
    End If
    
    If sLocaliza = True Then
        MsgBox "Referencia :- " & RefId & " Localizada em :- " & sCel
    Else
        MsgBox "Referencia não Localizada"
    End If
    
End Sub

Public Function ProcuraRefId(ByVal RefId As String) As String
    Dim iLin As Long
    Dim sCol As Long
    
    sLocaliza = False

    Dim wsDados As Worksheet
    Set wsDados = Worksheets("Dados")
    
    iLin = 2 'Linha 2
    sCol = 3  'Coluna 1
    
    With wsDados
    
        Do While Not IsEmpty(.Cells(iLin, sCol))

            If .Cells(iLin, sCol).Value = RefId Then
             
                sLocaliza = True 'Verdadeiro se encontrado
                sCel = .Cells(iLin, sCol).Address(False, False)
                
                Exit Do 'Sai do Loop se encontrar
            
            End If
            
            'Incrementa a linha
            iLin = iLin + 1
            
        Loop
        
    End With

End Function