VBA コード教えてください
添付画像のように
配送日・出発地・目的地・運送会社・ドライバー の５つの列からなるデータがあります（sheet1）
これは調べたい配送日でデータを抽出、さらに出発地＞運送会社＞ドライバーの順でソートをかけた物です
出発地ごとに分けたデータが欲しいという要望があり、下記のようなコードを作ってみました
Sub filter()
Worksheets("Sheet1").AutoFilterMode = False
With Cells(3, 1)
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "青森"
.AutoFilter Field:=2, Criteria1:="青森"
.CurrentRegion.Copy Destination:=Worksheets("青森").Cells(3, 1)
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "秋田"
.AutoFilter Field:=2, Criteria1:="秋田"
.CurrentRegion.Copy Destination:=Worksheets("秋田").Cells(3, 1)
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "岩手"
.AutoFilter Field:=2, Criteria1:="岩手"
.CurrentRegion.Copy Destination:=Worksheets("岩手").Cells(3, 1)
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "宮城"
.AutoFilter Field:=2, Criteria1:="宮城"
.CurrentRegion.Copy Destination:=Worksheets("宮城").Cells(3, 1)
End With
Worksheets("Sheet1").AutoFilterMode = False
End Sub
これを実行すると青森・秋田・岩手・宮城のワークシートが作成され出発地ごとのワークシートの作成は出来ました
しかし、日によっては出発地が無い日がある事があります
そこでB列のデータを参照し、データが無い場合にはその出発地のワークシートは作成されないようにしたいと思いました
これが思ったようにいかないのです
どのようなコードを書けば、出発地データがある物だけワークシートを作成して個別のワークシートを作成させる事が出来るのでしょうか？
よろしくお願い致します
お礼
ありがとうございます。 やってみます。