Find the value without looping

Option Explicit

Sub CountBase3()

    Dim R As Range

    Set R = Range("F2:H13")

    Dim Rows As Long, Columns As Long, Maxcount As Long

    Rows = R.Rows.Count()

    Columns = R.Columns.Count()

    Maxcount = Columns ^ Rows

    Debug.Print ("Maxcount=" & Maxcount)

    'Copy range to array

    Dim data As Variant

    data = R

    Dim counter As Long, row As Long, column As Long, counterShifted As Long

    Dim Values()

    ReDim Values(Rows)

    'Loop over selections - 531441 to find all the sets but just look at the first few for now

    For counter = 0 To 8

        counterShifted = counter

        For row = Rows To 1 Step -1

        'Get column from right hand digit of counter

        column = counterShifted Mod Columns + 1

        Values(row) = data(row, column)

        'Shift counter by dividing by number of columns (3)

        counterShifted = counterShifted \ Columns

        Next row

    'Display current selection

    Debug.Print ("Set " & counter + 1)

    For row = 1 To Rows

    Debug.Print (Values(row));

    Next row

    Debug.Print ("")

    Next counter

End Sub

Maxcount=531441
Set 1
 700  500  500  500  450  400  400  450  300  250  200  100 
Set 2
 700  500  500  500  450  400  400  450  300  250  200  150 
Set 3
 700  500  500  500  450  400  400  450  300  250  200  200 
Set 4
 700  500  500  500  450  400  400  450  300  250  250  100 
Set 5
 700  500  500  500  450  400  400  450  300  250  250  150 
Set 6
 700  500  500  500  450  400  400  450  300  250  250  200 
Set 7
 700  500  500  500  450  400  400  450  300  250  300  100 
Set 8
 700  500  500  500  450  400  400  450  300  250  300  150 
Set 9
 700  500  500  500  450  400  400  450  300  250  300  200