How to put the code in a for loop or simplifing the code

Hi all,

I dont want to paste eight time of the below code, is there any way to simplify the code
Thanks a lot for all your attention

For each column which is (D:K)

DO

Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True

Moderator Note:

Pls use code tags around your code next time as per forum rules.