Boa Tarde.

Conheço pouco de VBA e preciso de ajuda.

Tenho a planilha "Colar Ordens Encaixe - Mon II WLI", essa planilha sempre sera alimentada diariamente, e preciso copiar alguns dados dessa planilha para uma outra, porem, como ela gera graficos não pode apagar os anteriores, precisa gravar os dados, dai pular uma linha, e da proxima vez gravar na linha de baixo, formando um banco de dados.

Consigui fazer funcionar e pular a linha, porem sempre regrava em cima da mesma linha, não sei como fazer ela gravar na linha de baixo.

Se alguem puder me ajudar eu agradeço.

Range("D472").Select
ActiveCell.FormulaR1C1 = _
"='[Colar Ordens Encaixe - Mont II WLI.xls]Atend. Linhas e Encaixe'!R3C8"
Range("E472").Select
ActiveCell.FormulaR1C1 = _
"='[Colar Ordens Encaixe - Mont II WLI.xls]Atend. Linhas e Encaixe'!R2C21"
Range("F472").Select
ActiveCell.FormulaR1C1 = _
"='[Colar Ordens Encaixe - Mont II WLI.xls]Atend. Linhas e Encaixe'!R3C18"
Range("I472").Select
ActiveCell.FormulaR1C1 = _
"='[Colar Ordens Encaixe - Mont II WLI.xls]Atend. Linhas e Encaixe'!R2C18"
Range("G471").Select
Selection.AutoFill Destination:=Range("G471:G472"), Type:=xlFillDefault
Range("G471:G472").Select
Range("H471").Select
Selection.AutoFill Destination:=Range("H471:H472"), Type:=xlFillDefault
Range("H471:H472").Select
Range("D65536").Offset(1, 0).End(xlUp).Select
Range("D1048576").End(xlUp).Offset(1, 0).Select

End Sub