Eae Galera
Eu preciso criar uma macro, onde após clicar no botão ok, alimenta uma outra planilha (plan2) com as informações na sequência, uma após a outra, porém, está lançando a informação para a mesma linha.
Informação: I6:O6 ok
Lança na plan2 A6:G6 e assim por sequencia.
Range("I6:O6").Select
Selection.Copy
Sheets("Plan7").Select
ActiveCell.Cells.Select
Application.Goto Reference:="R1000C1"
ActiveCell.Range("A6:g6").Select
ActiveSheet.Paste
Sheets("Plan6").Select
Range("I6:O6").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("P4:P6").Select
Dim LR As Long 'retorna o número da última linha com conteúdo na coluna'
LR = Sheets("Plan7").Cells(0, 1).End(xlUp).Row
Sheets("Plan6").Range("I6:O6").Copy Sheets("Plan7").Range("A" & LR + 1)
End Sub