Private Sub CommandButton2_Click()
Dim objXL As Object
Dim NumRows As Long
Dim xlsNextRow As Long
Dim xlSheet As Object
    If Len(Selection) > 1 Then
        Set objXL = GetObject(, "excel.application")
        Set xlSheet = objXL.activesheet
        xlsNextRow = xlSheet.Range("B" & xlSheet.Rows.Count).End(-4162).Row + 1
        xlSheet.Cells(xlsNextRow, 2) = Selection.Text
    Else
        MsgBox "Nothing selected"
    End If
    Set objXL = Nothing
    Set xlSheet = Nothing
End Sub