Sub Test()<br />
&nbsp; &nbsp; Dim c As Long, lr As Long, m As Long<br />
&nbsp; &nbsp; For c = 11 To Cells(1, Columns.Count).End(xlToLeft).Column Step 10<br />
&nbsp; &nbsp; &nbsp; &nbsp; m = Cells(Rows.Count, c).End(xlUp).Row<br />
&nbsp; &nbsp; &nbsp; &nbsp; lr = Cells(Rows.Count, 1).End(xlUp).Row + 1<br />
&nbsp; &nbsp; &nbsp; &nbsp; Cells(lr, 1).Resize(m - 2, 10).Value = Cells(3, c).Resize(m - 2, 10).Value<br />
&nbsp; &nbsp; Next c<br />
End Sub<br />