如何编写Excel宏程序自动进行调整工作表表头

如何编写宏程序自动进行调整表头，原表头的顺序是错乱的，表格太多了，通过手动调整工作量很大。该程序需要通过检索到表头的内容，再进行调整，调整后的表头在A1~E1单元格内按“供货商、序号、订货代号、产品名称、数量”进行排列，原表头所在列的所有数据同时也跟着调整。

Sub 表头按要求调整()
Dim Head, HeadOld, i%, j%
Head = Array("不用的0下标", "供货商", "序号", "订货代号", "产品名称", "数量")
For i = 1 To UBound(Head)
HeadOld = Range("A1", Cells(1, Columns.Count).End(xlToLeft))
For j = 1 To UBound(HeadOld, 2)
If HeadOld(1, j) Like "*" & Head(i) & "*" Then Exit For
Next j
If j > i Then
Columns(j).Cut: Columns(i).Insert shift:=xlToRight
End If
Next i
End Sub