Copy Active Cell Row and insert below Active Cell Row

Hello,

I have the following code in a workbook. I want it to select the row that the cursor is in and copy it. Then select the row right below that active cell and insert the active row that was copied. Then input a formula in cell C of that newly inserted row. When the formula is done to select that newly inserted formula in column C of that row and paste value it. I am testing it out and I sometimes get a debug error and when I stop the debug I can no longer select any cells or rows in the excel workbook. I have to completely shutdown the workbook and reopen it to be able to select rows or cells again. Any idea why that is? Weird right? The code I am messing with is below.

Please Login or Register  to view this content.

to Skywriter - The macro debugs at insert shift:=x1Up. It debugs there but in the worksheet it does add the second row. It just doesn't complete the steps in the code for the formulas. Not sure why it stops there even though it performs the step on the sheet itself.

Please Login or Register  to view this content.

Maybe:

Please Login or Register  to view this content.

I changed the code to the following and still got the bug on the .Offset(1).Insert

Please Login or Register  to view this content.

the file is attached here.

the AccrualOffset code is where the issue lies. I want them to insert one side of the entry and while in that active row hit the Accrual Offset code and it books the other side of the entry

just following up. any ideas what could be the issue?

Where'd everyone go?

Bueller....Bueller....