Excel-VBA - Format data in Column to Delimited -

need making col d "delimited" cell d2 last cell in col d not blank. used record macro try steal code not seem working. can explain how edit code work or provide new code asking.

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 

sub delimit() workbooks("workbook name")     .sheets("your sheet name here")        .range("d2:" & .range("d" & .rows.count).end(xlup).address).texttocolumns destination:=.range("d2"), datatype:=xldelimited, _          textqualifier:=xldoublequote, consecutivedelimiter:=false, tab:=true, _          semicolon:=false, comma:=false, space:=false, other:=false, fieldinfo _          :=array(1, 1), trailingminusnumbers:=true     end end end sub