MACRO com erro em tempo de execução '-2147417848

Question

Tenho uma planilha relativamente simples, com algumas macros de copiar e colar. Quando desenvolvi a planilha, estava funcionando perfeitamente. Subitamente, no decorrer dos dias de uso, apareceu o seguinte erro descrito no título seguido da mensagem: "O método 'Paste' do objeto '_Worksheet' falhou".

Tentei resolver no dia em que apareceu, mas sem sucesso. No dia seguinte, fui tentar utilizar a planilha, e surpreendentemente deu tudo certo, as funções das macros funcionaram perfeitamente como no início, sem sequer ter aparecido esta mensagem.

Após o erro, ao fechar a planilha, sempre aparece "O Excel parou de funcionar". Também aparece isso quando eu simplesmente copio e colo manualmente nesta planilha.

Porém, agora voltou a aparecer. Preciso resolver isso urgente, pois é uma planilha para fornecer orçamento de meus serviços aos meu clientes. Estou empacado.

Segue linha de programação, caso ajude:

Range("A21:D40").Select
    Selection.Copy
    Range("E21:H21").Select (o VBA diz que o problema está aqui)
    ActiveSheet.Paste
    Range("I21").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=12
    Range("A42:D42").Select
    ActiveSheet.Paste
    Range("E42:H42").Select
    ActiveSheet.Paste
    Range("I42:L42").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-12
    Range("E21:H21").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Item 2"
    Range("I21:L21").Select
    ActiveCell.FormulaR1C1 = "Item 3"
    Range("A42:D42").Select
    ActiveCell.FormulaR1C1 = "Item 4"
    Range("E42:H42").Select
    ActiveCell.FormulaR1C1 = "Item 5"
    Range("I42:L42").Select
    ActiveCell.FormulaR1C1 = "Item 6"
    Range("A42:L42").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    ActiveWindow.SmallScroll Down:=6
    Range("A28:D29").Select
    ActiveWindow.SmallScroll Down:=-3
End Sub