how to seperate values of each column from selection

Not sure what you mean when you say you want values of col A1 to A5 stored Range K1... Do you mean you want the cell values concatenated?

Can you attach a workbook showing an example of what your required outcome looks like.

Try the following code:

Sub foo()
Dim lCol As Long, c As Range, stOutput As String
For lCol = 1 To Selection.Columns.Count
    For Each c In Selection.Columns(lCol).Cells
        If IsNumeric(c.Value) Then
            stOutput = stOutput & "," & c.Value
        Else
            stOutput = stOutput & ",""" & c.Value & """"
        End If
    Next c
    If stOutput <> "" Then stOutput = Right(stOutput, Len(stOutput) - 1)
    Range("K" & lCol).Value = stOutput
    stOutput = ""
Next lCol
End Sub

Yes, just change this line:

Range("K" & lCol).Value = stOutput

to

Range("K" & lCol).Value = "Var " & Cells(1, Selection.Columns(lCol).Column) & "=(" & stOutput & ");"