copy column range values to row range

[reneuend]

I have copied data to a column range on worksheet 'A' and then created a target row range on worksheet 'B'. But I can't seem to get it to transpose the data properly so it displays properly on worksheet 'B'. Instead of getting the data in the row cells, I'm only getting the first value from the column range in all the target cells because it's not transposed properly.

The following range is Worksheet 'A' (C11:C16)

sRange = sCol & sRowStart & ":" & sCol & sRowEnd
Set rRange = ActiveWorkbook.Worksheets(MODEL_TAB).Range(sRange)
rRange = WorksheetFunction.Transpose(rRange)

The following rnage is Worksheet 'B' (A1:A4)

sRange = "A" & nWLRow & ":" & sWL_LastCol & nWLRow
Set rCustom = ActiveWorkbook.Worksheets(INPUT_TAB).Range(sRange)

Finally, I save the data to the target range:

rCustom.Value = rRange.Value

What should I do to make this work?
Thanks for all responses!

 

[reneuend]

solved.
I changed it to use the range.copy and range.pastespecial methods.