Galera preciso de ajuda de vcs .. pois adicionei o comando Application.ScreenUpdating = False... na minha macro para que a tela nao pisque ou atualize... mas nao to conseguindo faze com que o comando funcione... meu excel é o 2007
Sub lancamento()
'
' lancamento Macro
Application.ScreenUpdating = False
Range("D5").Select
Selection.Copy
Sheets("BANCO DADOS").Select
Range("C2").Select
Selection.Insert Shift:=xlDown
Sheets("REGISTRO").Select
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BANCO DADOS").Select
Range("D2").Select
Selection.Insert Shift:=xlDown
Sheets("REGISTRO").Select
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BANCO DADOS").Select
Range("E2").Select
Selection.Insert Shift:=xlDown
Sheets("REGISTRO").Select
Range("D11:F11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BANCO DADOS").Select
Range("F2").Select
Selection.Insert Shift:=xlDown
Sheets("REGISTRO").Select
Range("C16:L16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("BANCO DADOS").Select
Range("I2").Select
Selection.Insert Shift:=xlDown
Sheets("REGISTRO").Select
Range("D5").Select
Range("C16").Select
Selection.ClearContents
Application.ScreenUpdating = True
End Sub