I'm still not sure I understand. Why wouldn't =INDEX($A$1:$B$2,RANDBETWEEN(1,2),RANDBETWEEN(1,2) -- =INDEX($A$3:$B$4,RANDBETWEEN(1,2),RANDBETWEEN(1,2) -- =INDEX($A$5:$B$6,RANDBETWEEN(1,2),RANDBETWEEN(1,2) -- etc. work for you?

If you must use VBA, the same thing could be done in VBA using the Cells() method and VBA's random number generating function.