Run time error 13 when deleting more than one cell with Worksheet_Change event macro

So I created a Worksheet_Change event macro to automatically paste down formulas in the same row once anything in cells A3 or higher have changed. However I know there will be times when the end user will input data incorrectly and will want to delete that row and start over. My problem is everytime I try to delete all the data in say row 3 for example, I get a Run-time Error 13 message. Here's my code and I've also attached a sample worksheet. What am I missing? TIA.

Please Login or Register  to view this content.

Maybe add this at the beginning:

Please Login or Register  to view this content.

Yes, if the If ... Then ... statement only occupies one line, then you don't need an End If.
Incidentally your code can be streamlined to remove all that unnecessary selecting of cells - I will post a revised version when back at a PC.

Suggested version:

Please Login or Register  to view this content.

Good stuff RS.

==========
If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.