Macro to Copy Values from Non-Contiguous Cells (Column) to Contiguous Cells (Rows)

[Snake Eyes]

Greetings,
I'm trying to create a macro that copies cell values from Sheet1 in non-contiguous cells (Column) to Sheet2 into contiguous cells (Row).
I need the macro to detect the next free row at the top short of affecting any row above Row5 and paste there.

Copy Values from:
Sheet1 B10,B12,B14,B17,B19,B23,B29,B32,B35,B38,B41,B43,B45,B47,B49,B51,B53

Paste values to:
Sheet 2 H6:AA6

I know I can do this one cell at a time but I'm looking to simplify the process.

 

[mumps]

Try:

Sub CopyValues()
    Application.ScreenUpdating = False
    Sheets("Sheet1").Range("B10,B12,B14,B17,B19,B23,B29,B32,B35,B38,B41,B43,B45,B47,B49,B51,B53").Copy
    Sheets("Sheet2").Range("H6").PasteSpecial Transpose:=True
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[Snake Eyes]

Thanks Mumps.
Where in the code you provide does it detect the next free row at the top of Sheet 2 short of affecting any row above Row5 and paste there?

 

[mumps]

Try:

Sub CopyValues()
    Application.ScreenUpdating = False
    Sheets("Sheet1").Range("B10,B12,B14,B17,B19,B23,B29,B32,B35,B38,B41,B43,B45,B47,B49,B51,B53").Copy
    Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, "H").End(xlUp).Offset(1).PasteSpecial Transpose:=True
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub