Could you maybe you should use a "Name" for the column  and select
that?

Otherwise here is some quick code - mostly from recording - to select
a column with a particular heading...

' Go to the "School" Column.
Rows("1:1").Select
Selection.Find(What:="School", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
Range(ActiveCell, ActiveCell.Offset(6536, 0)).Select