“Automation Error: Object Invoked has disconnected from its clients”

Question

I figured out what Nick was suggesting, and the following is the error number & description that I\'m getting:

\'-2147417848 (80010108)\' Automation

Answer 1

This solution works for me:

Before adding rows with Shift:=xlDown delete bottom rows on the worksheet

'ADD THE ROWS YOU WANT

Sheets("XXXXXX").Range("A100000:A100100").EntireRow.Delete

With Selection
.Copy
.Insert Shift:=xlDown
End With