VBA エラー：オブジェクトが必要です。の解決方法

下記のようなコードを組んだのですが、
エラーが発生しうまく進めません。
どのように修正すればよいか
ご教示いただけると助かります。

On Error Resume Nextを使うと
別のところに貼り付けられました。。。


With Sheets("移行前").Select

Selection.End(xlUp).Select
Range("AV1:AW1").Select
ActiveCell.Offset(1, 0).Activate

Range("AV3:AW" & Cells(3).CurrentRegion.Rows.Count).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
End With

With Sheets("データシート").Select
Set FoundCell = Range("2:2").Find(What:="仮金額")
Set N = Cells(.Rows.Count, FoundCell.Column).End(xlUp).Row + 1　　←エラー：オブジェクトが必要です。
Cells(N, FoundCell.Column).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With

No.5 ベストアンサー 回答者： よろずやkinchan 回答日時： 2018/04/16 19:45

Sub goo02()

Dim N As Long
Dim FoundCell As Range
Sheets("移行前").Select
Range("AV3:AW" & Cells(3, "AW").End(xlDown).Row).Copy
Sheets("データシート").Select
Set FoundCell = Range("2:2").Find(What:="仮金額", LookIn:=xlValues, LookAt:=xlWhole)
N = Cells(Rows.Count, FoundCell.Column).End(xlUp).Row + 1
Cells(N, FoundCell.Column).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
End Sub

No.4 回答者： yoreyore 回答日時： 2018/04/16 19:06

＞Set N = Cells(.Rows.Count, FoundCell.Column).End(xlUp).Row + 1

【.Rows.Count】の前の、withは、【With Sheets("データシート")】になっていて、【FoundCell 】ではないので、そこがエラーの原因でしょう。
変数「N」は長整数型（または整数型）ですよね？

＞Set N = Cells(.Rows.Count, FoundCell.Column).End(xlUp).Row + 1
⇒　N = Cells(FoundCell .Rows.Count, FoundCell.Column).End(xlUp).Row + 1

＞Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
【 Paste】するものがないです。コピーしておく必要があると思います。
⇒　
Cells(N, FoundCell.Column).Select
Selection.copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ただ、このコードは何をしようとしているのかがわかりません。
また、.Select　をこのように使う理由がわからないです。
Setの使い方も、理由がわかりません。

No.3 回答者： tom04 回答日時： 2018/04/16 18:04

こんにちは！

変数「N」を何の型で宣言しているのか不明ですが・・・
コードを拝見する限り、変数「N」は長整数型（または整数型）ですよね？

となると
＞Set N = Cells(.Rows.Count, FoundCell.Column).End(xlUp).Row + 1
は
＞N = Cells(.Rows.Count, FoundCell.Column).End(xlUp).Row + 1
で良いと思います。m(_ _)m

No.2 回答者： GooUserラック 回答日時： 2018/04/16 17:57

エラーが出た時は「FoundCell.Column」には何が代入されていますか？

No.1 回答者： あらっそ 回答日時： 2018/04/16 17:46

rows.countの前の.を消したらダメなのですか？