Set RangeofChard = Union(Range(Cells(ChardRowStart, 1), Cells(ChardRowEnd, 1)), _
                         Range(Cells(ChardRowStart, UsedCol), Cells(ChardRowEnd, UsedCol)), _
                         Range(Cells(ChardRowStart, MaintCol), Cells(ChardRowEnd, MaintCol)), _
                         Range(Cells(ChardRowStart, OtherUsedCol), Cells(ChardRowEnd, OtherUsedCol)))