Eu tenho poucos conhecimentos de VBA e preciso de ajuda para saber quais as alterações que terei que fazer no meu código para corrigir o seguinte erro:

Run-time error '-2147417848 (80010108)'
Method ´_Default' of object 'Range' failed

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("G10") = Range("H10") Then
Range("H10") = Range("G10")
Else
Range("G10").Select
Selection.Copy
Range("H10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I10").Select
Application.CutCopyMode = False
Selection.Copy
Range("AF10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I10").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[23]+RC[-3]*R[-4]C[-4]"
Range("I10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AF10").Select
Application.CutCopyMode = False
Selection.ClearContents
End If
End Sub