Find Min And Max In Columns?

i have a matrix and want find min & max this matrix. know must use For and IF for example for MIN: i want "a" compare "b" and if "a" < "b" then "a" is local optimum else b is local optimum then "c" compare "a" if "a" < "c" then "a" is local optimum else c replace a and c is local optimum &... until find Global Min

but i could not coding this in VBA EXCEL!!

i do not know number of my columns user will define it so for example i can't use Range("A1")

My problem became greater because at start user will define a number for every column(1 or 2)
and if column value was 1 for example find Max column and put it in cell(1000,1000) then find min column and put it in cell(1001,1000) else i.e if column value was 2 find min column and put it in cell(1000,1000) then find Max column and put it in cell(1001,1000)

numerical example:
column 1: 12 13 15 14 16
column 2: 8 10 9 2 3

and column value for column1 equal "1" and for column 2 equal "2"

so for column1 in cell(1000,1000) will write "16" and in cell(1001,1000) will write "12"
but in column2 because column value equal 2 will have: in cell(1000,1000)= 2 and in cell(1001,1000)=10