I took your code and copied it into an Excel Module. I bolded A7 & A8, selected
A8, ran the macro and it ran fine for me. I even took out the last two lines
with no problem.
Sub insertrow()
ActiveCell.EntireRow.Insert
ActiveCell.Font.Bold = False
'ActiveCell.Select
'ActiveCell.Font.Bold = False
End Sub