Boa tarde Gente,

criei uma macro pelo gravador de macros do excel que busca a ultima linha preenchida, copia as quatro ultima linhas que nao estao preenchidas e colas essas linhas logo acima delas para poder preencher outros dados. Apos gravar a macro, algumas vezes que eu excecuto ela funciona, porem algumas ela da um erro de tempo de execucao. Tentei rodar no excel 2007 e roda perfeitamente, porem utilizando o excel 2013 ela aparece esse erro as vezes. Sera que alguem poderia me ajudar?

Erro: Erro em tempo de execucao `-2147417848 (80010108)`:
Erro de Automacao

Macro:

Sub Incluir_Linhas()
'
' Incluir_Linhas Macro
'
Sheets("Consulta Passagens R&P").Select
Range("C11").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Rows("1:4").EntireRow.Select
Selection.Copy
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown `----> ao depurar, ele apresenta essa linha em amarelo, indicando o erro
ActiveCell.Offset(0, 2).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-4]C+4"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Plan1").Select
Range("B2").Select

End Sub

Se puderem ajudar, agradeço bastante! Valeu