Sub フィルター後の選択済み範囲のみコピペする()

    'AutoFilter Field:=1 は列番号（1列 = A列）、C社を含むセルをフィルター
    Range("A1:B7").AutoFilter Field:=1, Criteria1:="=*C社*"
    
    Set 指定範囲 = Range("A1").CurrentRegion '現在見えている範囲を指定する
    Set 指定範囲 = 指定範囲.SpecialCells(xlCellTypeVisible) '選択範囲を取込
    
    指定範囲.Copy '取り込んだデータをクリップボードへコピーする
    
    Range("D8").PasteSpecial 'コピーした内容を貼り付ける

End Sub