Macro to import data from specific columns form csv and rearrange

Hi, I am a complete novice at Macros and I need to make one to import data from a delimited csv, but I only need a few columns of data and I need to rearrange the order of the gathered data in to the currently selected cell/row of my spreadsheet.

The csv would have the same columns each time, but the number of rows would be different, I have attempted this so far by doing this, but this is only collecting from one column as I don't know how to rearrange the data, can anyone help me?

Tony

Sub Macro1()
'
' Macro1 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;example.csv", Destination:=ActiveCell)
.Name = "examplecsv_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 4, _
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

End Sub

where do you want to rearrange it to?

Do you have a problem getting the data into the sheet in the first place?

Hi, thank you for your reply.

The csv has 40 columns and say I need to collect data from column 10, 12, 18, 25, 26 and 29, but then place that data in a row on my spreadsheet in the following column order: 25, 12, 29, 18, 10, 26, so that data from column 25 of the csv would be placed in column 1 of my spreadsheet and so on.

How would I adjust my Macro so that it would do this?

Tony

You could record macro and import each column one by one or you can do macro to cut and paste the rows after importing. The first might take longer but would be better approach.