Converter Macro para VBA

Boa noite.

Gostaria de saber se tem como transformar uma Macro que é executada ao clicar em um determinado botão em códigos VBA. O objetivo é fazer com que ao executar a ação não seja visível o ir e vir (por exemplo o copiar de célular em uma planilha e colar em uma outra).
Segue abaixo o exemplo prático:

Sub Copia_cola()
'
' Copia_cola
'
Sheets("AAA").Select
Range("C17:H17").Select
Selection.Copy
Sheets("BBB").Select
Range("C22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("21:21").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C21").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("AAA").Select
Selection.ClearContents
Range("C17").Select
End If
End Sub

Esta Macro copia um intervalo em uma planilha e leva para outra. Só que quando ela é executada é possível ver a ação, e é exatamente isso que não quero. Gostaria que a ação fosse executada sem que o usuário tivesse que ver.

Obrigado mais uma vez!

Bom dia!!


Faça assim......agora eu não entendi um End if sem IF

Código:

Sub Copia_cola()
'
' Copia_cola
'
Application.ScreenUpdating = False
Sheets("AAA").Select
Range("C17:H17").Select
Selection.Copy
Sheets("BBB").Select
Range("C22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("21:21").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C21").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("AAA").Select
Selection.ClearContents
Range("C17").Select
End If
Application.ScreenUpdating = True
End Sub

Obrigado amigo! E sobre o If, é que tem uma condição antes da ação.

alexandrevba escreveu:

Bom dia!!


Faça assim......agora eu não entendi um End if sem IF

Código:

Sub Copia_cola()
'
' Copia_cola
'
Application.ScreenUpdating = False
Sheets("AAA").Select
Range("C17:H17").Select
Selection.Copy
Sheets("BBB").Select
Range("C22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("21:21").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C21").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("AAA").Select
Selection.ClearContents
Range("C17").Select
End If
Application.ScreenUpdating = True
End Sub