I'm not able to setup anything that will produce that error. My gut feeling was merged cells could cause this, but apparently not.
Googling seems to indicate others with 'Method of range class failed' errors manage to eliminate the error issue by not using .Select, which is seldom necessary anyway. In your case
Code:
Sheets("XXXX").Range("A7").EntireRow.Insert
would suffice. Don't know if this will help or not, it's just a thought.