Importing selected cells into VBA

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