Private oCol as Collection
 
Dim i As Long
Dim r As Excel.Range
 
Set oCol = New Collection
 
ActiveSheet.Columns(1).Select
 
On Error Resume Next
 
For Each r IN Application.Selection
  i = i + 1
  If i > 2 Then
     IF i > ActiveSheet.UsedRange.Rows.Count Then Exit For
        oCol.Add r.Value, r.Value
     End If
  End If
Next
 
On Error Goto 0