Voce não especificou se será algum loop, então em principio experimente:

Sub copia()
Dim Age As Integer, lAge As Integer
Age = Sheets("Estornos").Range("D6").Value
lAge = Application.Match(Age, Sheets("Agencias").Range("A:A"), 0)
Sheets("Agencias").Range("B" & lAge) = Sheets("Estornos").Range("F17")
End Sub

Boa noite Reinaldo,

O objetivo é procurar todas as 58 agências em um arquivo e retornar o valor total de cada uma e colar na guia "Agencias"

Na planilha pintei só algumas agências para não ter que colocar as 58.

Pois na empresa fazemos isso manualmente com varios arquivos. E muitas vezes ocorre erro de digitação.

EX: Procura agencia 235 e o valor total dela no caso: 1620,00
Depois procura agencia 592 e o valor total dela no caso: 5755,00
Depois procura agencia 662 e o valor total dela no caso: 2170,00

E por ai vai... o problema maior que o valor total de cada agencia não permanece na mesma celula sempre.
E nem sempre as 58 agencias aparecem no relatório... Esse é o problema maior para mim.

Tive uma ideia, só não sei colocar na pratica...

Cells.Find(What:="Conveniada:", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Cells.Find(What:="Pago", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Eu procuro pela palavra "Conveniada:" que sempre estará na coluna "C" ou "J" e retornaria o valor da coluna seguinte "D" ou "K" que seria a agencia.
Depois procuraria pela palvavra "Pago" que sempre estará na coluna "C" e retornaria o valor na mesma linha da procura anterior mais na coluna do lado.

Exemplo:

Procuro pela palavra "Conveniada:" que está na celula "C6" e me retorna o valor da celula "D6" na celula "AA1"
Em seguida procuro pela pala "Pago" que está na célula "C17" e me retorna o valor da celula "F17" na celula "AB1"

O que mudará será somente as linhas.

Grato.

Poderia fornecer mais exemplos, no seu primeiro post a planilha consta apenas 1 (ao que parece) copia de tela, gostaria de visualisar o lay-out da mesma, com mais alguns exemplos.

Reinaldo na planilha tem todos esses exemplo que falei... é porque tem uma parte em branco do arquivo...

Se descer a planilha vai ver as outra agencias...

Os dados que preciso estão pintadas de amarelo...

Grato.

Ok Não havia percorrido toda a planilha.
Contudo havia entendido que deveria "trazer" os valores na relação das agencias, porem no seu penultimo post consta

Procuro pela palavra "Conveniada:" que está na celula "C6" e me retorna o valor da celula "D6" na celula "AA1"
Em seguida procuro pela pala "Pago" que está na célula "C17" e me retorna o valor da celula "F17" na celula "AB1"

Então estou "trazendo para a guia "Agencias" somente os itens localizados .
Veja se lhe atende

Funcionou perfeitamente,

Preciso só estudar o código para poder vincular com outros arquivos onde a ordem da valor que quero fica em outra célula.

Eu nunca ia conseguir fazer isso.

Reinaldo, a planilha está ficando muito boa... Tem como me tirar mais uma dúvida ?

Como faço para caso a o caminho do arquivo não existir ele retornar uma msg de erro "Planilha não encontrada"

Caso contrario executar o macro...

O macro está assim...

Dim FSO As Object
Dim OpenBook As String

Set FSO = CreateObject("Scripting.FileSystemObject")

Application.ScreenUpdating = False

Workbooks.OpenText ActiveWorkbook.Path & "3759ESTORNO.TXT", Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1)), TrailingMinusNumbers:=True

OpenBook = ActiveWorkbook.Name

Reinaldo, consegui fazer tudo certinho das minhas dúvidas anteriores.
A planilha está muito boa.
Os outros arquivos eram no mesmo tipo e consegui me virar sozinho.
Só que agora apareceu outro tipo de arquivo que não consigo resolver.

Tem como me ajudar ?

Preciso que faça uma procura das agências específicas que está na Sheets("DADOS.IMPORTADOS").Range("AB4:AB64")

Essas agências vão ser procuradas em Sheets("IMPORTAR") na coluna "B".
E me retorne os valores encontrados das seguintes variáveis: (Variáveis coluna "A" e Valores coluna "C")

Variaveis

CB01
CB05
CB25
CB35
AR02
AR05
DV05

Segue anexo da planilha pra entender melhor.

Não entendi, qual o resultado esperado?? Qual codigo está utilizando??

Reinaldo, na planilha em anexo "CBAR"

Preciso que faça uma procura das agências específicas que está na Sheets("DADOS.IMPORTADOS").Range("AB4:AB64")
Que seriam "232, 235, 592... e por ai vai"

Essas agências vão ser procuradas em Sheets("IMPORTAR") na coluna "B".

E me retornar a soma dos valores encontrados das seguintes variáveis: (Variáveis coluna "A" e Valores coluna "C")

Variaveis

CB01
CB05
CB25
CB35
AR02
AR05
DV05

Segue anexo da planilha pra entender melhor.

EXEMPLO:

Procura AG 232 na coluna B
Verifica as seguintes variaveis e soma os valores:

Total seria: R$ 189.642,51

Depois procura a proxima agencia e faz a mesma coisa.

Obrigado.

Veja se lhe atende:
Para valores em AC=0 , não encontrado as "subcontas" especificadas na Plan1.
Para celula em AC sem valores, não encontrado a conta especificada em AB

Reinaldo,

Tentei executar o código e não está lançando.

Tem que fazer algo diferente ?

Obrigado

Tentou aonde?
No proprio exemplo acima ou "transferiu" para outro arquivo?