Private Sub HSCSub(ByRef table(,) As Integer)
        Dim numberOfRows As Integer
        Dim numberOfCols As Integer
        Dim tempToMove As Integer
        numberOfCols = 4
        numberOfRows = 4

        For row = 1 To numberOfRows
            For col = row + 1 To numberOfCols
                tempToMove = table(row, col)
                table(row, col) = table(col, row)
                table(col, row) = tempToMove
            Next col
            For newRow = 1 To numberOfRows - 1
                If table(newRow, row) > table(4, row) Then
                    table(4, row) = table(newRow, row)
                End If
            Next newRow
        Next row
    End Sub