Option Explicit
Option Base 1
Sub CheckColAlign()
' hiker95, 05/26/2011
' http://www.mrexcel.com/forum/showthread.php?t=552749
Dim MyCols
Dim a As Long, FC As Long
Application.ScreenUpdating = False
MyCols = Array("Process_datetime", "Carrier Info", "Customer", "Load Order#", "Weight", "Lot Number")
For a = LBound(MyCols) To UBound(MyCols)
FC = 0
On Error Resume Next
FC = Application.Match(MyCols(a), Rows(1), 0)
On Error GoTo 0
If FC = 0 Then
Columns(a).Insert
Cells(1, a).Value = MyCols(a)
ElseIf a = FC Then
'do nothing
Else
Columns(a).Insert
Columns(FC + 1).Cut Destination:=Columns(a)
End If
Next a
ActiveSheet.UsedRange.Columns.AutoFit
Application.ScreenUpdating = True
End Sub