vba - 範囲の選択時に、オブジェクト ' _Global' の 'Range' 失敗エラー

Question

私は VBA でのプログラミングが初めてで、記述しようとしているこのコードに問題があります。コードで未使用の列 A の最初の行を見つけ出し、シートの別の部分からデータをコピーしてその行に貼り付けたいと考えています。

Sub CopyandPaste()


Dim RowLast As Long

RowLast = ThisWorkbook.Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1,   0).Row

Set NewRange = ThisWorkbook.Worksheets("Sheet2").Cells(RowLast, 1)

ThisWorkbook.Worksheets("Sheet1").Cells(8, "B").Select
Selection.Copy

Range("NewRange").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub

どんな助けでも非常に役に立ちます。