コマンドボタンを押したら テキストボックに表示されてる値と同回数実行させるには？

質問

XP　Excel2000

受注管理システムを作成しています。
型番で　サイズと色があり　今まで(サイズ)×(色)の数だけ
コマンドボタンを押し、Excel-Sheetへ貼り付けていました

少ないサイズと色なら　さほど問題は無いのですが
サイズと色が多くなるにつれて　一つ一つ実行させていくのが
無駄に感じ　一括処理を考えています。

〔UserForm1〕へ　〔TextBox〕が縦6×横10、並んでいます
行がサイズ、列が色　交わった箇所に受注数を入力し
〔CommandButton〕を押せば　瞬時にExcel-Sheetへ貼り付けたいのです

〔TextBox〕には数値が入力されている箇所と
数値が入っていない箇所があります。

〔TextBox〕に数値が入っている箇所の個数を　別の〔TextBox〕に
表示し　その数値と同じ回数の実行を行いたいのですが

値が入っている箇所を左から順番に実行させる為には
どんなコードにすればいいのか　教えてください。

◆ ◆ ◆ ◆ ◆ … ←色
▼〔〕〔〕〔〕〔〕〔〕…
▼〔〕〔〕〔〕〔〕〔〕…　
▼〔〕〔〕〔〕〔〕〔〕…
▼〔〕〔〕〔〕〔〕〔〕…
↑サイズ

〔TextBox〕の縦6×横10は　該当しない場合は
VisibleをFalse⇔Trueで　表示/非表示にする予定です
(これもまだ解決していません。)

例えば
型番　001-12345
サイズ…3　　色…4

　 　白　 黒　 赤 ◇　◇ … ←色
12〔10〕〔30〕〔　〕〔〕〔〕…
14〔 　〕〔　 〕〔50〕〔〕〔〕…　
16〔20〕〔40〕〔 　〕〔〕〔〕…
▽〔 　〕〔 　〕〔 　〕〔〕〔〕…
↑サイズ

〔CommandButton〕を押せばExcelSheetへ
No.　サイズ 色　 枚数
　1　　12　　白　　10
　2　　12　　黒　　30
　3　　14　　赤　　50
　4　　16　　白　　20
　5　　16　　黒　　40

こんなふうに　やりたいのです。　お願いします。
教えてください

回答No.1

zap35

http://oshiete1.goo.ne.jp/qa3453794.html
の続きですね。でも先の質問で今回の回答につながる内容が書かれていますよ。For～Next文で繰り返す＋MOD関数で剰余を利用する方法です。
回答された内容を理解せず、また同じ質問をしているように見えますが…

まだそこまで理解が進んでいないなら

LastR = Sheets("Sheet1").Range("A65536").End(xlUp).Row + 1
If TextBox3.Value <> "" Then
　　Sheets("Sheet1").Cells(LastR, "A") = 12
　　Sheets("Sheet1").Cells(LastR, "B") = "白"
　　Sheets("Sheet1").Cells(LastR, "C") = TextBox3.Value
End If
If TextBox9.Value <> "" Then
　　Sheets("Sheet1").Cells(LastR, "A") = 12
　　Sheets("Sheet1").Cells(LastR, "B") = "黒"
　　Sheets("Sheet1").Cells(LastR, "C") = TextBox9.Value
End If

を６０個のTextBox分書いてもできないことはありません。
コードをスマートに書きたいなら先の回答を理解できるまで読んでください。

お礼

回答有難うございました。
先の質問(表示)　と今回の質問(実行)とでは　
入門、初心者の類の私からすれば、意味合いが違うと思い
投稿させていただいた状況でしたが

自分なりに理解解決いたしました。
最終的には　For～Nextで処理を繰り返し、それ以前に
TextBox名をやりやすいように　変更しました。

考え方のアドバイス、有難うございました。