オートフィルタで出てきたものを他シートへコピー

質問

オートフィルタを使って出てきた内容を、他のシートにコピーさせたいのです。内容は、

でてきたシート１のＣ列の内容をコピーしたいです。
　　　　　　↓
２行目のＣ列の内容のみシート２のＡ１へコピー
（１行目はタイトルがはいっているので・・）
　　　　　　↓
３列目以降のＣ列の内容をシート３のＡ１、Ａ２、Ａ３・・・

という風にコピーさせたいのです。
でてくる内容は１行かもしれませんし、２行だけかもしれません。

なんとかこれをどういうプログラムで組めばいいのかわからないので教えてくださいm(_ _)m
本当に困っています。
実際作ってみたのですが、１行目はタイトルが入っているので
ただ単に２行目のＣ列をシート２へコピー、３行目のＣ列をシート３へ
コピーというのはできるのですが、やはりシート３には順々に行を足してコピーしなくてはいけないので、そこら辺がどうしてよいかまったくわからずです・・・；；
どなたかこの内容のプログラムを教えていただけないでしょうか・・助けてくださいm(_ _)m

回答No.3

toshi_ho · ベストアンサー

No.2の補足への回答です。
この処理では、シート２のＡ１にしか値が入らないと思うのですが、どうでしょう。
それから、Resize(.Columns.Count)の意味が良く分からないのですが。

回答No.2

toshi_ho

>貼り付けるときに１０個以上のはみ出した部分は貼り付けさせないようにしたいのですが可能でしょうか？
１０個以上貼付けしないようには、できないですね。
貼付けした後に、削除するしかないと思います。

補足

本当にご回答うれしいです。toshi_hoさんのおかげで本当に助かっております。
toshi_hoさんのプログラムをもとに自分なりにプログラムを組んだのですが、
Private Sub bottun1_Click()
With Sheets("Sheet1").Range("C3:C" & Cells(65536, 3).End(xlUp).Row)
Sheets("Sheet2").Cells(1, 1).Resize(.Columns.Count).Value = .Value
End With
End Sub
というものを作りました。（セルが結合された部分に値をいれれるようにするために少し変えました。）
このようにプログラムをくんだらなぜか、オートフィルタで絞られた内容以外のものもコピーされてしまいます。
なぜかわからずで・・・力を貸していただけないかと思うのですが、もしおわかりになれば教えていただけないでしょうか？何度もすいません。どのようにプログラムを変更すればよいのか；；

回答No.1

toshi_ho

次のプログラムでどうでしょう。
Sheets("Sheet1").Select
max=Cells(65536,3).End(xlUp).Row
Range("C3:C" & max).Copy
Sheets("Sheet3").Select
Cells(1,1).Select
ActiveSheet.Paste

補足

お早い回答本当にありがとうございます。うれしい限りです。
一つ質問よろしいでしょうか？
コピー先のシート３は値を入れる場所がＡ１～Ａ１０までの１０項目
だけなのですが、貼り付けるときに１０個以上のはみ出した部分は貼り付けさせないようにしたいのですが可能でしょうか？
もしご回答願えるならお願いいたします。m(_ _)m
何度もすいません。