insert multiple blank rows at designated cells

Hi Everyone,

I hope someone can help me.
I have a large list of cells in excel: 15, 33, 90, 102, 149, 159, 217, 228, 238, 247, 305, 312, 369, 417, 428, 486, 538, 548, 606, 621, 671, 679, 737, 805, 816, 874, 915, 923, 981, 1029,1038 .
Under each of these cells I would like to insert 20 blank rows. I have tried various codes but i'm struggling with the fact that as soon as I insert 20 rows at cell 15, all the other cellnumbers change.

Help me please!!



Ps. This is a reformulation of this post: http://www.excelforum.com/excel-prog...ml#post3727280

If you mean by cells your row count then working backwards from your largest row number to the smallest this might help.

Sub tessawanders()
Rows(1038).offset(1).Resize(20).Insert
Rows(1029).offset(1).Resize(20).Insert
Rows(981).offset(1).Resize(20).Insert
'And so on.
End Sub