dim i as integer
dim j as integer
for i = 1 to 10:for j = 0 to 10
Range("C" & i + j * 10 + 1) = Sheets(j + 2).Range("A" & i + 3)
next:next
dim j as integer
for i = 1 to 10:for j = 0 to 10
Range("C" & i + j * 10 + 1) = Sheets(j + 2).Range("A" & i + 3)
next:next
