Option Explicit
Dim DBシート, 基点セル, 抽出列, 抽出キー
Dim 別シート, コピー先セル
Dim コピー先シート As Worksheet
Dim 抽出範囲 As Range
Dim 領域 As Range
Dim 行数
'-----------------------------------------------------------------------------------------
Sub リストから指定店舗分を抽出して別のシートにコピーする()
    売上DBから指定店舗分をートフィルタで抽出する
    Set 領域 = Range(基点セル).CurrentRegion
    行数 = 領域.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
    If 行数 = 0 Then
        MsgBox "一致するデータはありません"
    Else
        オートフィルタの抽出結果を別のシートへコピーする
    End If
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 売上DBから指定店舗分をートフィルタで抽出する()
    DBシート = "売上DB"
    基点セル = "A1"
    抽出列 = 1
    抽出キー = "××"
    With Worksheets(DBシート)
        .Activate
        If .AutoFilterMode Then             'オートフィルタモードがオンなら
            Selection.AutoFilter            'リセットする
        End If
    End With
    Range(基点セル).AutoFilter Field:=抽出列, Criteria1:=抽出キー
End Sub
'-----------------------------------------------------------------------------------------
Private Sub オートフィルタの抽出結果を別のシートへコピーする()
    別シート = "抜出"
    コピー先セル = "A1"
    Set コピー先シート = Worksheets(別シート)
    Set 抽出範囲 = Worksheets(DBシート).Range(基点セル).CurrentRegion
    With 抽出範囲
        .Resize(.Rows.Count - 1).Offset(1).Copy _
        Destination:=コピー先シート.Range(コピー先セル)
    End With
End Sub