Macro

Question

Senhores, sou novo aqui e preciso de auxilio com a criação de uma macro.

Estou desenvolvendo uma planilha, e criei uma macro para copiar os dados de uma planilha chamada "Impute" para outra chamada "Compilação".

A dificuldade é que os dados estão sendo gravados na mesma linha, preciso fazer com que toda vez que acionar o comando da macro, os dados sejam copiados em uma linha nova, ou seja linha vazia, automaticamente alimentando a planilha.

A macro ficou assim:

 Range("I7:L7").Select
    Selection.Copy
    Sheets("Compilação").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Impute").Select
    Range("I9:L9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Compilação").Select
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D4").Select
    Sheets("Impute").Select
    Range("I11:L11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Compilação").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E4").Select
    Sheets("Impute").Select
    Range("I13:L13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Compilação").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F4").Select
    Sheets("Impute").Select
    Range("D17:G20,J17:O20").Select
    Range("J17").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Compilação").Select
    ActiveSheet.Pictures.Paste.Select
    ActiveSheet.Shapes.Range(Array("Picture 20")).Select
    ActiveWindow.SmallScroll ToRight:=8
    Range("T4").Select
    Sheets("Impute").Select
    Range("I24:J24").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Compilação").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("T7").Select
    Sheets("Impute").Select
    Application.CutCopyMode = False
    
End Sub

Ressalto que são duas abas.

Aguardo orientações.

Answer 1

https://www.youtube.com/results?search_query=vba+copiar+dados+de+uma+planilha+para+outra

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]

Answer 2

Enquanto você não estiver eficiente em laço de repetição, não conseguirá fazer quase nada em VBA:

https://www.youtube.com/results?search_query=vba+la%C3%A7o+de+repeti%C3%A7%C3%A3o

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]