Text to Columns with Active Cell and not a fixed cell

Hello,

I am trying to create a macro that selects the range from the active cell in col A all the way down to the last non-empty cell in col A, and then does text to column from the initial selected (active) cell.
For the moment, the recorded macro I have is as follows:

Sub TextToCols()

    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("A429"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
End Sub

Now the problem with this is: I don't want the text to columns to happen in cell A429, I want it to happen in the cell I originally selected.

If anyone can help me with that, I would be most grateful.

Thanks,
G