Using MATCH to replace range when moving columns

I've coded myself into a corner!
I take cells from Main after filtering and copy to Main2 using "wsM.Columns("bm:bm").Copy .Range("j1")"
The problem comes when I move a column or insert a new one on "Main" sheet. I got around it on another sheet by using MATCH =VLOOKUP($A2,Main!$B$2:$IV$397,MATCH(Main!E1,Main!$1:$1,0)-1,FALSE)
Is there a way of inserting match into the range to make sure I first search for the correct column title (row main!A1) before copying it.
Perhaps there's a quicker way?
Thanks.

Please Login or Register  to view this content.

To copy a column which has First cell content "Column Title".

Please Login or Register  to view this content.

Hi I think I need a better solution, maybe just add new colums but reference them somehow I dont know back to the drawing board. Thanks