エクセルマクロでシート分けとシート名変更するには？

質問

商品一覧(2,000件)があり、それを商品グループ毎シート分けし、そのシート名は商品グループ名に変更したいのですが・・・
過去のものまであるので商品が多いです。商品グループは10グループぐらいですが、フィルタをかけて一つ一つするには時間がかかります。
マクロで一括処理するにはどうしたら良いでしょうか。
列はＡ～Ｋぐらいまであります。
・sheet1商品一覧（列A～Kまで項目があり、この中には商品グループも入っています）
・sheet2商品グループ（A列にグループ名が記入されています）

どなたかおわかりになる方、どうぞお教え下さい。
よろしくお願いします。

回答No.2

NCU

よく勘違いされている方がいらっしゃるのですが、どこがわからないかを具体的に記載して下さい。

回答No.1

toshi_2000

前提条件
１．グループ名のシートが既にあること。
２．グループ名がsheet1のA列にあること。（そうでなければマクロの変更が必要です。

max行 = Cells(1, 1).End(xlDown).Row
For i = 1 To max行
Sheets("sheet1").Select
Range(Cells(i, 1), Cells(i, 11)).Copy
Sheets("" & Cells(i, 1) & "").Select
last行 = Cells(65536, 1).End(xlUp).Row
Cells(last行 + 1, 1).Select
ActiveSheet.Paste
Next