https://www.youtube.com/results?search_query=vba+pesquisa

Para a sua primeira questão experimente o código abaixo:

Sub ListarCidades()
 Sheets("Lista").Range("A4:B" & Sheets("Lista").Cells(Rows.Count, 1).End(3).Row).Value = ""
 [A4].Resize([D5], 2).Copy Sheets("Lista").[A4]
End Sub

DESLOC é OFFSET

Cinco dicas que foram muito úteis para mim:

1) Quando não sei fazer algo no VBA, vou ao menu EXIBIÇÃO >> MACROS >> GRAVAR MACRO
Faço o que eu quero aí volto ao menu EXIBIÇÃO >> MACROS >> PARAR GRAVAÇÃO
Aperto Alt + F11 e vejo como a macro fez aqui. Tento entender e tento adaptar.

2) Quando vou criar um código e o resultado não está saindo como o esperado, entro no código e vou apertando F8 para executar passo a passo, aí vou passando o mouse sobre as variáveis para verificar se o valores delas estão corretos, já consertei milhares de códigos dessa forma.

3) Antes de executar o código, vou ao menu Depurar >> Compilar. Isso ajuda corrigir erros mais simples, como o nome de uma variável digitado errado.

4) Declaro todas as variáveis. Isso também evita erros.

5) Sempre uso o Option Explicit lá no início. Ele me obriga a declarar as variáveis.

Olá
Resolvido obrigado pela ajuda e consideração!

Mardr

Você tem que marcar como Resolvido a resposta que melhor te atendeu e clicar na ferramenta para pontuar os claboradores.

Clique no link abaixo para ver como funcionam as ferramentas:

viewtopic.php?f=7&t=16757

[]s
Patropi - Moderador