Forループに複数のDoループを含むVBAコード全体を挿入する

私のコードは現在、製品コードと製品の数量を要求し、消費者が得る総コストと割引を表示します。ただし、「購入したさまざまな種類の製品」を尋ねるForループを使用する必要があるため、現在のコードをこのForLOOPに配置します。つまり、ループを通過するたびに、購入した特定の製品に関する情報を取得して表示する必要があります。私は自分のコードをForループに挿入しようとして何時間も費やしましたが無駄になりました。私はかなり経験が浅く、自分自身を教えているので、どんな助けでも非常に役に立ちます！ありがとう！

Sub Product() 
Dim ProductCode  As String 
Dim ErrorCheck As Boolean 
Dim Cost As Double, MinQty As Double, Discount As Double 
Dim MyRange As Range 
Dim found As Variant 
Dim QtyBought As Integer 
Dim TotalCost As Double 

Set MyRange = Worksheets("Data").Cells '<-- the range containing the data provided


Do '"main" outer loop
    Do '"Product code input" inner loop
        ProductCode = Application.InputBox("Enter the Product's code.", Type:=2) '<--| force string input
    Loop While ProductCode = "" 


    found = Application.Match(ProductCode, MyRange.Columns(1), 0) '<-- try getting ow index of prodcut code in 1st column of "MyRange" range
    If IsError(found) Then '<--| if no match found...
        MsgBox "The value entered was not found!" & vbCrLf & vbCrLf & "Please, try again", vbCritical + vbOKOnly '<-- inform the user and loop again
    Else '<--| otherwise
        With MyRange(found, 1) '<-- reference the matching cell
            Cost = .Offset(0, 1).Value '<--| store "Cost from cell 1 column to the right of the referenced one
            MinQty = .Offset(0, 2).Value '<--| store "MinQty" from cell 2 columns to the right of the referenced one
            Discount = .Offset(0, 3).Value '<--| store "Discount" from cell 3 columns to the right of the referenced one
        End With 
    End If 
Loop While IsError(found) 

 'Obtaining QtyBought Value
QtyBought = InputBox("Enter the QtyBought ordered.") 


 'Error checking
Do Until ErrorCheck = False 
    If IsNumeric(QtyBought) = False Then 
        ErrorCheck = True 
        MsgBox ("Not a valid entry.") 
        QtyBought = InputBox("Enter the QtyBought ordered.") 
    Else 
        ErrorCheck = False 
    End If 
Loop 
 'finding out the cost of the prodcut ordered.

TotalCost = Selection.Value * QtyBought 
Discount = Selection.Value * Discount 
 'Obtaining discount rate
If QtyBought > MinQty Then 
    MsgBox ("You purchased " & QtyBought & "units of product " & ProductCode & ".The total cost is " & Format(TotalCost, "$#,##0") & "Because you purchased at least " & MinQty & "units, you get a discount of " & Discount & "on each unit") 

Else 
    MsgBox ("Sorry, You don't qualify for any discount") 

End If 


End Sub