Copiar e Colar Valores em Loop

[Milton Amorim Filho]

Boa tarde Pessoal. Tudo beleza?

 

Sou iniciante em vba e precisaria muito da ajuda dos senhores(as).

 

Estou precisando de uma rotina que faça o seguinte:

 

Leia a primeira linha de uma planilha x e cole as infos na planilha y e respeite o range e salve o arquivo na sequencia da rotina, a partir do nome de uma célula específica:

 

Ou seja, após copiar e colar os valores da primeira linha. Salvará o arquivo com o nome da célula A2, por exemplo, e iniciará o processo de copiar e colar na proxima linha.

Fara isso até a linha 3789, abaixo coloquei um código que eu monte copiando e colando os valores de uma unica célula e, apenas, da primeira linha e salvando na sequencia.

Eu preciso que esse salvar, pegue também o valor da celula A2.

 

Sub Teste()
'
' Teste Macro
    
    Range("A2").Select
    Selection.Copy
    Sheets("Informacoes_Gerais").Select
    Range("G6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\DAS\OI"
    ActiveWorkbook.SaveAs Filename:="C:\DAS\OI\teste1.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

 

Poderia, humildemente, ajudar-me

 

Absss