O Range.Copy será utilizado, pois é simples e fácil. O Select deve ser evitado (inglês) em excel-vba. Caso deseje usar o .Select
é recomendado desligar a atualização de tela antes do código iniciar e religar no fim. Application.ScreenUpdating = False
e Application.ScreenUpdating = True
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Sheets("CONSULTAR")
Set ws2 = ThisWorkbook.Sheets("CIDADES")
'Pode usar .Sheets ou .Worksheets, com o nome entre "" ou com o número de index
'Exemplo de index
'Set ws1 = ThisWorkbook.Sheets(3)
'Set ws2 = ThisWorkbook.Worksheets(4)
rLast = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row + 1
ws1.Range("D6").Copy Destination:=ws2.Cells(rLast, 1)
ws1.Range("E14").Copy Destination:=ws2.Cells(rLast, 2)
O código pode ser executado por um botão ou por eventos, por exemplo: mudança na planilha CONSULTAR.
1. Declaração das Planilhas (Worksheet)
Primeiro você declara cada planilha utilizada, para poder copiar de uma para outra
Dim ws1 As Worksheet :Set ws1 = ThisWorkbook.Sheets("CONSULTAR")
2. Obter a última linha
O código ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row
obtém a última linha da coluna 1, ou seja, "A". E depois rLast
soma 1 para escrever 1 linha depois da última.
rLast = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row + 1
3. Copiar e Colar
ws1.Range("D6").Copy
copia a célula D6 da Planilha CONSULTAR
Destination:=ws2.Cells(rLast, 1)
cola na coluna 1 ("A") e na linha rLast
ws1.Range("D6").Copy Destination:=ws2.Cells(rLast, 1)
Obs.: Na próxima vez insira o código na formatação
correta
e não por imagem.