I'm sure this is very simple - if you know how... I want to script a loop that puts the contents of one cell in another, changing on each iteration to the next cell in the column. Like this: [A:S16].Select For i = 1 To 10 .Selection.Contents = [A:S(row number)].CellValue Next where (row number) can be expressed as i + 28. How do I do that, please?