Sub オートフィルタで抽出したデータの最下行を取得する()
    
    Dim intRow As Integer

    Worksheets("Sheet1").Range("D1:D25").ClearContents
    Worksheets("Sheet3").Range("B5:D25").ClearContents
    
    Sheets("Sheet1").Select
    Range("A1").AutoFilter Field:=1, Criteria1:="西店"

    intRow = Range("A1").End(xlDown).Row

    Range("A2:C" & intRow).Copy

    Sheets("Sheet3").Select
    Range("B5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Sheets("Sheet1").Select
    Range("D" & intRow).Value = "●"

    ActiveSheet.AutoFilterMode = False
    Application.CutCopyMode = False
        
End Sub