集計表作成のマクロについて

質問

月末在庫の集計表を作成しています。

月末在庫を抽出すると、次のように表示されます。
・Ｂ列　商品コード
・Ｄ列　商品名称
・Ｅ列　デポコード
・Ｆ列　デポ名称
・Ｇ列　数量
なお、３桁のデポコードのうち、右がＢであれば「出荷止め品(Ｂ在庫)」そうであければ「通常品(Ａ在庫)」です。

これらの情報を元に、商品ごと倉庫ごとの「通常品」「出荷止め品」の在庫数量を一覧にしたいと思っています。

●一覧表作成の流れは次のように考えています。
１．抽出されたデータを「通常品」「出荷止め品」に分ける。(完了)
２．抽出されたデータの「(1)全てのリスト」(完了)「(2)通常品リスト」(×)「(3)出荷止め品リスト」(×)を作成する。
３．新しいシートを作成して、縦軸に(1)の商品コードと商品名称を抽出
４．横軸に(2)のデポコード・名称とその数量を抽出して小計を入れる。
５．「４」の小計欄の右から(3)のデポコード・名称とその数量を抽出して小計を入れる。
６．「４」と「５」の小計を足した「合計」を入れる。
７．倉庫ごとの合計数量を投入する。
８．罫線を設定する。
　　ⅰ　全体を実線で囲む。
　　ⅱ　縦線を実線にする。
　　ⅲ　小計欄の左右は二重線にする。
　　ⅳ　倉庫ごとの合計欄の上を二重線にする。

ここで問題が発生しています。「２」の(2)と(3)がうまく行きません。
「Ａ在庫」も「Ｂ在庫」も抽出されたデータをもとに作成しています。
「デポコード」の右側１文字が「Ｂ」であれば「Ａ在庫」の場合は「０」を表示「Ｂ在庫」の場合は「デポコード」「数量」など、必要な情報を抽出するようにしています。
「Ａ在庫」「Ｂ在庫」のそれぞれの情報が抽出されても、「０」の欄が
あると、エラーが出てしまいます。

分けた「Ａ在庫」「Ｂ在庫」の「商品コード」「商品名称」「デポコード」「デポ名称」をリストとして表示するにはどうしたらよいのか、教えていただけませんか？

また、他に在庫状況を把握するよい案があったら教えていただけると助かります。

ちなみに、現在のＶＢＡは以下のように記入しています。
ＶＢＡ初心者のため上の流れの「４」と「５」の辺りもよくわかっていません。何か参考になるサイトがあれば、教えていただけると助かります。

なお、現在のＶＢＡも添付したいのですが、2000字を超えてしまうので
ここでは載せていません。

回答No.1

noname#192382

次に示すマクロでデポがAのものはシート2に、Bのものはシート3にコピーされますので、後は好きなように出来ると思います。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2010/2/25 ユーザー名 :
'
Dim mygyo As Integer
For mygyo = 2 To 5
Sheets("Sheet1").Select
'MsgBox Right$(Cells(mygyo, 5), 1)
If Right$(Cells(mygyo, 5), 1) = "A" Then
Range(Cells(mygyo, 1), Cells(mygyo, 5)).Select
Selection.Copy
Sheets("Sheet2").Select
Range(Cells(mygyo, 1), Cells(mygyo, 5)).Select
ActiveSheet.Paste
ElseIf Right$(Cells(mygyo, 5), 1) = "B" Then
Selection.Copy
Sheets("Sheet3").Select
Range(Cells(mygyo, 1), Cells(mygyo, 5)).Select
ActiveSheet.Paste
Else
End If
Next

'
End Sub

お礼

申し訳ありませんが、Sheet1が選択されるだけでした。