Swapping columns Error 2

[jomili]

I previously posted about a problem I was having with Rick's column swap macro (http://www.excelfox.com/forum/f22/sw...93/index2.html). Now I'm back again, with example included. My problem is my last column, "Subject". In the B4 picture, it's at the extreme right-end. In the "After" picture, it's still there, AND in column E, where it's supposed to go. But my "Contract Manager" column disappears.

The macro, as configured, is in the attachment.

[jomili]

Okay, I've achieved partial success by changing my column order to add the last column (AB, the one that disappears) twice:

Const NewOrder As String = "D,E,AD,AE,AF,AC,B,C,F,G,H,I,J,K,L,M,N,P,X,Y,Q,R,S,T,U,V,W,A,AA,O,Z,AB,AB"

I'd like to know if this is a regular thing, or if there's a code change that could correct this. I don't understand Rick's code well enough to understand why it's having this problem.