VBA - Insert row, copy contents of original row except for contents of column A

Hi. I am using the code below to insert a row by double-clicking a cell. The code then copies formulas (and apparently dates) from the original row to the new row. Is there any way for me to adjust this code so the cell in column A is blank after the insert? If so, I need it to work like this for all 30+ pages of the workbook. Here's the code I have in ThisWorkbook:

Please Login or Register  to view this content.

Thanks!

If you want to make the cell in column A blank you would just add in one line to the last section

Please Login or Register  to view this content.

By placing this macro in ThisWorkbook as you have done it will work on every sheet in the workbook. You do realise that the line

Please Login or Register  to view this content.

Will remove any values that are in the sheet that are not the result of formulas e.g if you have placed the number 5 in a cell and run the macro on the row with this number then the number 5 will be cleared. This also goes for any text that is not the result of formulas - if you don't want that to happen then remove that line of code.