Estou com um problema em uma macro, estou tentando copiar dados de uma planilha e colar em outra, porém esta dando um erro na hora de fazer o inserte de uma nova linha (em amarelo).
Código:
Sub copiarDadosEntrePlanilhas()
Application.ScreenUpdating = False
Worksheets(2).Rows("2:2").Insert
'copia de Formulario para Apontamento
Worksheets("Formulario").Range("B3").Copy Destination:=Worksheets("Apontados").Range("A2")
Worksheets("Formulario").Range("H3").Copy Destination:=Worksheets("Apontados").Range("B2")
Worksheets("Formulario").Range("B7").Copy Destination:=Worksheets("Apontados").Range("C2")
Worksheets("Formulario").Range("H7").Copy Destination:=Worksheets("Apontados").Range("D2")
Worksheets("Formulario").Range("N3").Copy Destination:=Worksheets("Apontados").Range("E2")
Worksheets("Formulario").Range("N7").Copy Destination:=Worksheets("Apontados").Range("F2")
Worksheets("Formulario").Range("N11").Copy Destination:=Worksheets("Apontados").Range("G2")
Worksheets("Formulario").Range("N14").Copy Destination:=Worksheets("Apontados").Range("H2")
Worksheets("Formulario").Range("B11").Copy Destination:=Worksheets("Apontados").Range("I2")
Worksheets("Formulario").Range("H11").Copy Destination:=Worksheets("Apontados").Range("J2")
Application.CutCopyMode = falso
'Mensagem de texto
MsgBox "Registro concluído!", vbInformation, "Concluído"
Application.ScreenUpdating = True
End Sub