If someone would be kind enough to help me, I would greatly appreciate
it.


I simply want to take a row of answers from 10 students and position
these answers horizontally instead of vertically on another
spreadsheet. Seems simple enough but for the life of me, I can not
figure it out.

So Student One's answers are presently listed like the following:

1
2
3
1
4
2
3
3

I would like to list on another spreadsheet like this:

Student One 12314233

Any help would be appreciated.

I have the following code, but it does not seem to work:

Set Source = Range(Cells(3, 10), Cells((LastRow + 1), LastColumn))
X = 1
Y = 1

ReDim Data(Source.Count)


LastColumn = ActiveSheet.UsedRange.Columns
(ActiveSheet.UsedRange.Columns.Count).Column

LastRow = ActiveSheet.UsedRange.Rows
(ActiveSheet.UsedRange.Rows.Count).Row


For Each K In Source

Data(X) = K.Value

X = X + 1
Next
Sheets(1).Select
Range("b3").Select

rw = 2
cl = 10

For cl = 10 To LastColumn

For rw = 2 To LastRow

Cells(rw, cl).Value = Data(rw)

X = X + 1




Next rw

Next cl


End Sub