Configurando dados para que as células com fórmulas preenchessem automaticamente com o resto dos meus dados após colar

Question

Estou executando uma macro que cola dados em outro livro de trabalho. Os dados são atualizados mensalmente e são colados na próxima célula em branco. Os novos dados dependem das fórmulas na pasta de trabalho de destino, portanto, as macros são selecionadas novamente para preencher automaticamente as células. Como isso faz com que o preenchimento automático aconteça logo após os dados serem colados, pegando o próximo ponto em branco?

Isto é o que parece: Então eu quero que o intervalo seja do próximo ponto em branco ... agora ele pega os dados registrados nas Macros.

Range("B30289:E30289").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B30289:E40021")
Range("B30289:E40021").Select
Range("I30289:S30289").Select
Selection.AutoFill Destination:=Range("I30289:S40021")
Range("I30289:S40021").Select

    

Answer 1

Use o código

Sheets("Source").Range("<DataRange>").Copy Sheets("Target").Range("B1048576").End(XlUp).Offset(1,0)

Onde está o intervalo que você deseja copiar. Ex .: "B30289: E40021". Mas você deve ter certeza de que o intervalo de origem é sempre o mesmo.

Agora, se quiser dinamizar também, você pode usar, por exemplo:

Sheets("Source").Range("B2:E" & Sheets("Source").Range("E1048576").End(XlUp).Row).Copy Sheets("Target").Range("B1048576").End(XlUp).Offset(1,0)

Isso fará com que uma cópia de todas as folhas de dados de origem de "B2" para "E" seja copiada para a primeira linha em branco da planilha de destino.