Cau

Valeu! Obrigadão amigão! RESOLVIDO!

Bah show! Funcionou. Obrigado Só uma dúvida, toda vez que eu executo-a a planilha pisca. Isso é normal? Abração!

Bah amigão quase isso, só está faltando colar os valores e ela está colando as formulas ;0) Eu não estou conseguindo inserir isso: Paste:=xlPasteValues Como faz? No aguardo, obrigadão!

Olá pessoal, Como faço para executar esta macro somente numa planilha? Resumindo, nesta planilha preciso copiar os valores das celulas da linha A1, cola-las na linha abaixo, inserir uma nova linha e por ultimo deletar a linha 31, sem interferir nas outras planilhas. Abaixo está o exemplo e a macro que faz isso. Tens alguma outra forma de fazer isso? Obrigado! A B C D E 1 12 32 26 28 20 2 12 32 26 28 20 3 05 08 07 56 65 4 37 74 54 65 43 5 21 35 43 78 54 6 7 8 . . . 30 23 34 46 48 69 31 46 58 58 94 53 Sub GRAVA() ' ' GRAVA Macro ' Macro gravada em 18/2/2012 por cau ' ' Rows("9:9").Select Selection.Copy Rows("20:20").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=True, Transpose:=False Application.CutCopyMode = False Selection.Insert Shift:=xlDown Rows("31:31").Select Selection.Delete Shift:=xlUp Range("B9").Select End Sub