how to copy different text from word into excel on consecutive rows

[mihnea96]

Hi! Could you kindly help me with my problem: I want to copy some text from Word into Excel, using a command button. The idea is that i select some text, press the button and it pastes the selected text in b2, for example, and when I select another text, I cannot make it to paste the secondly selected text in b3, and so on.
This is the code i'm trying to use. Could you explain me, please, what's wrong about it and help me fix it?

Thank you!

Private Sub CommandButton2_Click()
Selection.Copy
Dim objXL As Object
Set objXL = GetObject(, "excel.application")

Dim NumRows As Long
Dim xlsRow As Row
xlsRow = xlsRow + 1
objXL.Application.Cells(xlsRow, 2) = Selection.Text
Selection.Paste

End Sub