'Module
Dim bgFlagData1 As Boolean
Dim collData As Collection
Dim CurrentY As Long
Dim nIndex As Long
Public bgFlagData1 As Boolean
'Class Module
Public mColl As Collection

       nIndex =  1 
    For i = (iChoise) To (iChoise +  10 )
        Select Case i
        Case  14 ,  15 ,  21 ,  22 
            ob.mColl.Add sh.Cells(CurrentY, i), CStr(bgFlagData1) & CStr(nIndex)
            nIndex = nIndex +  1 
        End Select
    Next i

For Each o1 In collData
    For Each o2 In o1.mColl
        For Each o3 In o2.mColl
            For Each o4 In o3.mColl
                CurrentX =  5 
                i =  1 
                Set rn = o4.Get_Data1(i)
                Do While Not rn Is Nothing
                    sh.Cells(CurrentY, CurrentX).Value = rn.Value
                    i = i +  1 
                    CurrentX = CurrentX +  1 
                    Set rn = o4.Get_Data1(i)
                Loop
            Next o4
        Next o3
    Next o2
Next o1

Public Property Get Get_Data1(ByVal nIndex As Long) As Range
On Error Resume Next
Set Get_Data1 = Nothing
Set Get_Data1 = mColl.Item(CStr(True) & CStr(nIndex))
End Property