Copy and Paste a selection based on LastRow
<p>I am just trying to copy and paste a selection from one worksheet into the first blank row of another master worksheet. I plan to do this with a few different worksheets, but I can't understand why I keep getting an error message.</p>

<pre><code>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" &amp; Rows.Count).End(xlUp).Row
NR = wsmaster.Range("A" &amp; Rows.Count).End(xlUp).Row + 1

With ThisWorkbook
sht2.Range("A:AI").Copy
wsmaster.Range("A" &amp; NR).PasteSpecial Paste:=pastevalues
End With
</code></pre>