Export Columns to New Worksheet

First suggestion is always post a sample file where we can simply see the same things at the same time.
(Go Advanced > Paperclip).

Maybe this:

        ColCopy = .Rows(5).Find(MyStrs(Val), After:=.Cells(5, .Columns.Count), _
            LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Column