eliminate unwanted columns

Hi.

I need a macro to eliminate some columns and organize my spreadsheet.
where I have a spreadsheet with many columns, but I need only the columns {11,12,16,30,34,41,60,61,82}, this spreadsheet, the rest of the columns should be deleted.
and I also need to line 7 becomes the header
See my file in
http://www.sendspace.com/file/xpyys5

can anyone help me?

thank you!

Sub m()
    Dim iCol As Long
    
    With ActiveSheet
        .Rows("1:6").Delete
        For iCol = .UsedRange.Column + .UsedRange.Columns.Count To 1 Step -1
            If IsError(Application.Match(iCol, Array(11, 12, 16, 30, 34, 41, 60, 61, 82), 0)) Then
                .Columns(iCol).Delete
            End If
        Next iCol
    End With
End Sub

hello shg , you did not understand my post?

Hi marreco

This response is offensive (to me)...shg is among the most brilliant participants in the Forum

hello shg , you did not understand my post?

please rephrase it.

Gosh, John, thank you, but no offense taken.

In fairness to marreco, I posted a completely incorrect answer, realized that a minute or two later, edited it to a nonsensical "....^....1", and then reposted. Marreco responded before my last edit.

@ marreco
My apologies. I've dealt with you A LOT on this Forum and have never known you to be rude. I should have known there was something I wasn't seeing.

@ shg
Thanks for setting me straight...hopefully next time I won't shoot from the hip.

Hi

there's been a misunderstanding.

I just asked a question, the reason was because when I opened it and saw the response of the master SHG, it was written ("^ 1 ......"), then I innocently asked the question.

I did not mean to offend anyone!

I would never do that, after all everyone here helped me and still help me!

please excuses and you understand that!

please forgive me but I had no such intention.

Hi marreco

No apology necessary...it was MY mistake...shg explained to me.

Again

My apologies. I've dealt with you A LOT on this Forum and have never known you to be rude. I should have known there was something I wasn't seeing.