Boa noite rfs

Movi teu tópico.
Em Dicas e macetes não é permitido postar dúvidas, pois como o nome já diz, só é permitido postar Dicas & Macetes.

[]s

Patropi - Moderador

Caro rfs, o melhor procedimento pra fazer o que você quer é através de macro. Anexo arquivo com a macro para executar a tarefa, basta com a planilha aberta apertar os botões "Alt" + "F8" e aparecerá uma janela com a macro da planilha, depois basta clicar em "Executar" e depois é so aguardar que a macro fará o procedimento. No fim aparecerá uma mensagem de tarefa concluída.

Caso precise, abaixo o código da macro para esta planilha:

Sub Concatenar_Valores()

    Dim variavel1 As String
    Dim variavel2 As String
    Dim variavel3 As Integer
    
    Sheets("Page 1").Select
    
    Range("A2").Select ' onde vai colar os dados
    ActiveCell.FormulaR1C1 = "=CONCATENATE(""a"",COUNTA(R[6]C:R[19999]C)+8)"
    variavel3 = 2
    
    Do While variavel3 <= 221
          
    Sheets("Page " & variavel3).Select
    Range("A1").Select ' trecho a ser selecionado para copiar
    ActiveCell.FormulaR1C1 = "=CONCATENATE(""a8:k"",COUNTA(R[7]C:R[19999]C)+7)"
    variavel1 = Range("a1").Value
    Range(variavel1).Select
    Selection.Copy
    Sheets("Page 1").Select
    variavel2 = Range("a2").Value
    Range(variavel2).Select
    ActiveSheet.Paste
    Application.DisplayAlerts = False
    Sheets("Page " & variavel3).Select
    ActiveWindow.SelectedSheets.Delete
    
    variavel3 = variavel3 + 1

    Loop

Range("A1").Select
Selection.ClearContents
Range("A2").Select
Selection.ClearContents
Range("A3").Select
Selection.ClearContents
Sheets("Page 1").Select
Sheets("Page 1").Name = "Lista"
Range("A1").Select

MsgBox ("Operação concluída com sucesso!!!")
Application.DisplayAlerts = True
End Sub

Att.: Lucélio

Muito Obrigado Lucélio! Resolvido