Untested:

For RowNdx = EndRow To StartRow + 1 Step -1
Rows(RowNdx+1).Resize(16).Insert
Cells(RowNdx+1, 1).Resize(16, 1).Value = Arr
Next RowNdx

or

For RowNdx = EndRow + To StartRow + 1 Step -1
Rows(RowNdx).Resize(16).Insert
Cells(RowNdx, 1).Resize(16, 1).Value = Arr
Next RowNdx


Ken Johnson wrote:

Hi Dave,
Testme leaves one salon left undone.
If....
For RowNdx = StartRow + 1 To (EndRow) * 16 Step 17

in Rich's last reply is changed to...

For RowNdx = StartRow + 1 To (EndRow) * 17 Step 17

then all 400 salons are done.

Ken Johnson

--

Dave Peterson