【VBA】オートフィルタで絞りこんで別シートにコピー

Sub オートフィルタのコピー()

　’A1の６列目でキーワード絞り込み
    Range("A1").AutoFilter 6, "キーワード"
　
 　’A1のこの範囲を転記先シートのA1を起点にコピー
    Range("A1").CurrentRegion.Copy Sheets("転記先シート").Range("A1")

End Sub