I don't completely understand, but if you want alternating rows,maybe you could step by 2:Sub test2()For Row = 1 To 9 Step 2`commandsNextEnd Sub