1. Move drow =2 to the line after Do While and replace the original drow to dcol = 1
2. Just before the loop add in dcol = dcol + 1
3. Replace the ,1 in the Cells() statement to dcol