Copy row value from sheet1 to sheet2 column

Question

Sheet1.activate
Sheet1.range("C4：H4").select
selection.copy
Sheets("Sheet2").select
Range("C4:C9").pasteSpecial

This is the code I tried which does not work.

Answer 1

Try replacing the last 2 lines of code with the below. You will require the Transpose parameter.

Sheets("Sheet2").Range("C4:C9").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("Sheet2").activate

Answer 2

first please avoid using Select Statements, try simply this

Sheets(1).Range("C4:H4").Copy
Sheets(2).Range("C4:H4").PasteSpecial 

its unnecessary to use select and Range.

If you simply copy then you also dont have to activate your Destination Sheet.

For further information see the documentation of the PasteSpecial Method: VBA PasteSpecial