Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Cells(Target.Row, 7) = Cells(Target.Row, 2) * Cells(Target.Row, 4)
End Sub
run-time error -2147417848(80010108) is prompted (Method '_Default' of object '_Range' failed) and closed.