Excel VBA - アクティブシートの次の行エラー

Question

Excel 2013ワークブックがあります。私はこのSO Answer for Copy and find next blank Row

私のコードを利用した

はCopyzone

Sub Save() 
    Dim NextRow As Range 
    Set CopyZone = Worksheets("Sheet1").Range("A2:AO289") 
    Set ToDataSheet = Worksheets("_data") 
    Set NextRow = Range("B" & ToDataSheet.UsedRange.Rows.Count + 1) 
    CopyZone.Cut 
    ToDataSheet.Activate 
    NextRow.PasteSpecial Paste:=xlValues, Transpose:=False 
    Application.CutCopyMode = False 
    Set NextRow = Nothing 
End Sub 

で新しくフォーマットされたデータを持っている私の最初のシートからの出力です。私はデータシートをデータシート（ "_data"）にセットしましたが、行のデバッグに入ります。

NextRow.PasteSpecial Paste:=xlValues, Transpose:=False 

カットデータを次の空白行のシートに貼り付けるにはどうすればよいですか？

Answer 1

は、どのようなエラー

Sub Save() 
    Set CopyZone = Worksheets("Sheet1").Range("A2:AO289") 
    Set ToDataSheet = Worksheets("_data") 
    CopyZone.Cut Destination:=ToDataSheet.Range("B" & ToDataSheet.UsedRange.Rows.Count + 1) 
End Sub