Sub Button1_Click()
    Application.ScreenUpdating = False
    arr = Range("A3:C" & Cells(Rows.Count, "A").End(xlUp).Row)
    lr = Cells(Rows.Count, "E").End(xlUp).Row
    If lr > 2 Then Range("E3:G" & lr).Clear
    cr = 2
    Min = 10
    Max = 200
    For i = 1 To UBound(arr)
        If arr(i, 3) <= 200 Then
            Cells(cr, "E") = arr(i, 1)
            Cells(cr, "F") = arr(i, 2)
            Cells(cr, "G") = arr(i, 3)
            cr = cr + 1
        Else
            cnt = arr(i, 3)
            Do While cnt > 0
                n = Application.WorksheetFunction.Round((Max - Min + 1) * Rnd + Min, -1)
                If cnt < n Then n = cnt
                Cells(cr, "E") = arr(i, 1)
                Cells(cr, "F") = arr(i, 2)
                Cells(cr, "G") = n
                cnt = cnt - n
                cr = cr + 1
            Loop
        End If
    Next
    Application.ScreenUpdating = True
End Sub