Erro: Procedimento muito grande para macro

[Rodrigo Kaito]

Olá pessoal! Como não manjo coisa alguma de VBA, decidi fazer uma macro (burra) para uma operação simples. Com o meu limitado conhecimento, não consegui nada melhor do que o code box abaixo. Agradeço se alguém puder me dar uma dica de como otimizar, já que isso deveria se repetir para 250 linhas e na centésima já deu erro de tamanho de procedimento. Além do mais, ela ficou demasiadamente lenta para executar 😅

 

   Range("A4").Select
    Selection.Copy
    Sheets("CUSTO POR PRODUTO").Select
    Range("B3:C3").Select
    ActiveSheet.Paste
    Range("D12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("METODO ABSORÇAO TODOS PUXADORES").Select
    Range("E4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

   Range("A5").Select
    Selection.Copy
    Sheets("CUSTO POR PRODUTO").Select
    Range("B3:C3").Select
    ActiveSheet.Paste
    Range("D12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("METODO ABSORÇAO TODOS PUXADORES").Select
    Range("E5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

//O primeiro range.select iria supostamente até o A250 e o segundo até E250

End sub

 

Desde já agradeço!

 

Att,

Rodrigo

[Alyson Ronnan Martins]

Boa noite @Rodrigo Kaito

Não entendi seu código... é uma repetição que vai até o 250???

Faz um seguinte diminui o código para eu tentar entender aonde é a repetição (caso seja claro) ou manda uma planilha exemplo, com informações fictícias, assim quem saiba eu te ajudo mais rápido.