How do i convert a vertical column of numbers to horizontal row of comma separated values?

[kingpoop]

Hello All,

if I have a vertical column of numbers such as column A going up to 5000 in Column A of Sheet 1
how can I convert column A to a comma separated list of numbers and insert starting at Column B?

I have the following code so far:

Option Explicit

Sub Convert_To_CSV()

Dim oRange     As Excel.Range
Dim Cols          As Integer
Dim Rows        As Long
Dim Cnt           As Long

Set oRange = ThisWorkbook.Sheets(1).UsedRange

Cols = oRange.Columns.Count
Rows = oRange.Rows.Count - 1

Cnt = 0

For Cnt = 1 To Rows

Next Cnt

End Sub

1
2
3
4
5
6
7
8
9
10

and looking to do this: '1','2','3','4',...

Thanks for your help.