Sub Macro1()
Workbooks.OpenText Filename:="C:\Users\jug1rma\Desktop\ZPPLST05_PACD.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False
With Workbooks("ZPPLST05_PACD.txt").Sheets(1)
MaSource = Array("F:F", "E:E", "E:E", "H:I", "L:M", "O:O", "S:S", "W:X", "W:W", "T:U", "AA:AA", "S:S", "W:W", "X:X")
MaDest = Array("B:B", "C:C", "D:D", "E:E", "G:G", "I:I", "J:J", "K:K", "M:M", "O:O", "Q:Q", "R:R", "V:V", "W:W")
For i = 0 To UBound(MaSource)
.Columns(MaSource(i)).Cut
.Columns(MaDest(i)).Insert Shift:=xlToRight
Next
.Columns("Y:AA").Delete Shift:=xlToLeft
End With
End Sub