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