Ola, criei a seguinte macro,

Sub FORM_PRODUZIDO_LANCAR()
'
' FORM_LANÇAR Macro
'

'
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Application.Goto Reference:="FORM_PRODUÇAO_LANÇAR"
Selection.Copy
Sheets("BD PRODUZIDO").Select
Range("B3").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="FORM_PROMOÇAO_LIMPAR"
ActiveWindow.SmallScroll ToRight:=-6
ActiveWindow.SmallScroll Down:=-9
Range("G11:H11").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("G13:H13").Select
Selection.ClearContents
Range("G17:H17").Select
Selection.ClearContents
Range("G19:H19").Select
Selection.ClearContents
Range("G21:H21").Select
Selection.ClearContents
Range("G23:H23").Select
Selection.ClearContents
Range("G25:H25").Select
Selection.ClearContents
Range("G27:H27").Select
Selection.ClearContents
Range("G29:K29").Select
Selection.ClearContents
Range("G11:H11").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Application.ScreenUpdating = True
ActiveSheet.Protect

End Sub

funcionava normalmente masis derepente começou a aparecer o seguinte erro. Selection.Insert Shift:=xlDown

Alguém saberia o que significa isso, essa macro seria cara copiar as selulas de da plan 1 para colar na plan 2, que por sua vez serve como um banco de dados.