>>648
For r = 600 To 1700 Step 2
 Range(Cells(r, 2), Cells(r + 1, 2)).Merge
Next