Excel-VBA - Format data in Column to Delimited
<p>Need help making Col D "Delimited" from cell D2 to the last cell in Col D that is not blank. I used the Record Macro to try to just steal the code but it does not seem to be working. Can anybody explain how to edit this code so that it will work or provide a new code that does what I am asking. </p>

<pre><code>Sub Delimit ()
Selection.TextToColumns Destination:=Columns("D"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
</code></pre>