LastRowに基づく選択をコピーして貼り付け

Question

あるワークシートの選択をコピーして別のマスターワークシートの最初の空白行に貼り付けようとしています。いくつかのワークシートでこれを行う予定ですが、どうしてエラーメッセージが出るのか理解できません。私が見

Dim sht1 As Worksheet 
Dim sht2 As Worksheet 
Dim sht3 As Worksheet 
Dim shape As Excel.shape 

Set wsmaster = Sheets("Sheet 1") 
Set sht2 = Sheets("Sheet 2") 
Set sht3 = Sheets("Sheet 3") 

LR = wsmaster.Range("A" & Rows.Count).End(xlUp).Row 
NR = wsmaster.Range("A" & Rows.Count).End(xlUp).Row + 1 

With ThisWorkbook 
sht2.Range("A:AI").Copy 
wsmaster.Range("A" & NR).PasteSpecial Paste:=pastevalues 
End With 

Answer 1

1つの問題は、あなたが、細胞Range("A" & NR)に列Range("A:AI")の範囲をコピーしようとしているということです。

1. wsmasterを定義

   また、それをそのままWith Thisworkbookラッパーを削除

2. を使用されていないよう
3. LRを取り外します（私はそれがsht1がために使用推測している）あなたのコードを向上させることができます必要ない

Answer 2

私はそれを理解することができました

LR = Cells(Rows.Count, "A").End(xlUp).Row 
NR = Cells(Rows.Count, "A").End(xlUp).Row + 1 

sht2.Activate 
sht2.Range(Cells(1, 1), Cells(LR, 35)).Copy 
sht1.Activate 
sht1.Range("A" & NR).PasteSpecial Paste:=xlPasteValues