Importing selected cells into VBA

Can you help with how to import into vba just the data in the currently selected cells?

What I want to do is to manually select a range of rows (in a single column) and upon running the macro put the data from each cell into the uppermost cell with each seperated with a comma.

I can manage the combining of the data but don't now the selection is read into VBA

manually select a range of rows (in a single column)

Do you mean a range of cells in one column

VBA Noob

See if this helps

Dim c As Range
Dim NewSrt As String
    For Each c In Selection
        NewSrt = NewSrt & "," & c.Value
    Next
Selection(1).Value = Mid(NewSrt, 2, 9 ^ 9)

VBA Noob

Add

c.Clear

after

NewSrt = NewSrt & "," & c.Value

VBA Noob