Using MS Access VBA to insert a row into an Excel worksheet, between existing rows without replacing data.

Question

I need help with some simple syntax. Most of what i find is more complex than i require and i cannot seem to be able to figure out how, within my VBA procedure to be able to insert a new blank row directly after the existing 2nd row, but without replacing it. No matter what i try, it successfully inserts the row, but it replaces the exiting data!  My most recent attempt:

 xlWSh.Range("2:2").Select

ActiveCell.Offset(1).EntireRow.Insert

have also tried simply:

 xlWSh.Range("2:2").Select

ActiveCell.EntireRow.Insert

Thank you for your help!

Answer 1

Thank you again - I really appreciate everyone's help. Since it works for you, then I am sure that I must be missing something elsewhere in my code. But I have it working now. I did wonder, however, if you would recommend using the one insert line (xlWSh.Rows(2).EntireRow.Insert) over the little group of "WITH" lines (they both are working fine).