Tenta assim

dim a as string
dim sh as worksheet


set sh = sheets(Prestadores_lançamento)
     sh.range("B3").select
a = activecell 

daqui pra baixo entra sua rotina onde o loop so faz a busca sua variavel atual

SE nao consegui adaptar poste sua rotina

Obrigado Marcelo Desculpe a Demora em testar seu código, mas tenho uma dificuldade em conhecimento ainda. Não sei onde colocar o seu código.
se puder me ajudar mais.

Segue o Script completo

Sub Listar()

Dim a As String
Dim sh As Worksheet

Set sh = Sheets("Prestadores_lançamento")
sh.Range("B3").Select
a = ActiveCell


Linha = 3
Lin = 3

Sheets("CONSULTA").Range("A3:E5000").Clear

Do Until Sheets("SERV_PRESTADOS").Cells(Lin, 1) = ""
    If Sheets("SERV_PRESTADOS").Cells(Lin, 3) = 45 Then
                                                                
        Sheets("CONSULTA").Cells(Linha, 1) = Sheets("SERV_PRESTADOS").Cells(Lin, 1)
        Sheets("CONSULTA").Cells(Linha, 2) = Sheets("SERV_PRESTADOS").Cells(Lin, 2)
        Sheets("CONSULTA").Cells(Linha, 3) = Sheets("SERV_PRESTADOS").Cells(Lin, 3)
        Sheets("CONSULTA").Cells(Linha, 4) = Sheets("SERV_PRESTADOS").Cells(Lin, 4)
        Sheets("CONSULTA").Cells(Linha, 5) = Sheets("SERV_PRESTADOS").Cells(Lin, 5)
       
        Linha = Linha + 1
                
    End If
    Lin = Lin + 1
Loop

End Sub

Não sei se entendi corretamente, mas teste

Eu nao entendi o que vc quer exatamente pq da forma que vc exemplificou se o codigo rodar toda a tabela da aba prestadores lançamento e buscar os dados na planilha da maneira que esta o resultado da planilha consulta sera o mesmo da aba serviços prestados.

Agora se vc tem a intenção de filtrar os valores de acordo com cada codigo ou seja informar o codigo e ter todos os serviços referente ao codigo informado veja esse exemplo

Ok...

Da forma que esta ele busca e lista la em Consulta. Esse é o único modo que sei fazer.
Eu preciso que:

Em PRESTADORES_LANCAMENTO temos 3 linhas. Eu preciso que o sistema consulte em PRESTADORES_LANCAMENTO a linha 1 o dado 45 coluna B, e filtre a informação que esta la na tabela SERV_PRESTADOS e lista ela em CONSULTA. Quando terminar isso eu preciso que o sistema volte a pesquisa em PRESTADORES_LANCAMENTO e pegue a Info da linha dois coluna B = 35 e filtre em SERV_PRESTADOS e lista abaixo da linha já filtrada. Assim por diante.

Não sei se entendi corretamente, mas teste

Obrigado Reinaldo isso mesmo que estou procurando. Bem complexo para mim, mas nada como um desafio para entender.

Agradeço. Otimo final de semana.