フィルターで抽出した結果の中の特定のセルの値のみをコピーするには？

まゆまゆ 2007-02-21 05:21:01 No: 135387

フィルターをかけたシート自体で得られた1行の結果の中の特定のセルの値だけをコピーしたい場合のVBAありましたら教えてください。

以下に自作のものを抜粋しましたが、エラーになります・・・。
初心者でいろいろ調べましたが、良い回答がなく煮詰まってしまってます。
よろしくお願い致します。

Range("A1").AutoFilter Field:=1, Criteria1:="Key"
Selection.SpecialCells(xlCellTypeVisible).Select Selection.Offset(0, 4).Select
ActiveCell.Copy