Exchaning Columns and Code Trimming

[zaska]

HI all

I would like to know how to exchange data in "B:B" & "G:G"

at present i am using the following code. Looking for a better one.

Columns("B:B").Insert xlToLeft
Columns("H:H").Cut Columns("B:B")
Columns("B:B").NumberFormat = "yyyymmdd"

Also i would like to know whether the following code can be trimmed. I am using comma delimiter to import the file.

 StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, ab:=False, Semicolon:=False, Comma:=True _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True

Thankyou