Sub Macro1()
Dim MaxRow As Long '最終セルの行番号
Dim MaxColumn As Integer '最終セルの列番号
MaxRow = Range("a1").CurrentRegion(Range("a1").CurrentRegion.Count).Row
MaxColumn = Range("a1").CurrentRegion(Range("a1").CurrentRegion.Count).Column
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1").AutoFilter Field:=3, Criteria1:="チョコレート"
'Range("A1:g92").Select
Range(Cells(2, 1), Cells(MaxRow, MaxColumn)).Select
Selection.Copy
'Destination:=Sheets("Sheet14").Range("A1")
Sheets.Add After:=Sheets(Sheets.Count)
Range("c2").Select
ActiveSheet.Paste
End Sub
Sub Macro1()
Dim MaxRow As Long '最終セルの行番号
Dim MaxColumn As Integer '最終セルの列番号
MaxRow = Range("a1").CurrentRegion(Range("a1").CurrentRegion.Count).Row
MaxColumn = Range("a1").CurrentRegion(Range("a1").CurrentRegion.Count).Column
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1").AutoFilter Field:=4, Criteria1:="<>#N/A"
'Range("A1:g92").Select
Range(Cells(2, 1), Cells(MaxRow, MaxColumn)).Select
Selection.Copy Destination:=Sheets("Sheet19").Range("c3")
'Destination:=Sheets("Sheet14").Range("A1")
'Sheets.Add After:=Sheets(Sheets.Count)
'Range("c2").Select
'ActiveSheet.Paste
End Sub