3行目から2行目までの範囲を選択します。ランタイムエラー13：型の不一致？

Question

私は、最後の行を最初に見つけるコードを書こうとしており、2行目から最後の行と3行目の間のすべての行を選択します。その後、削除を続行します。しかし、私はエラー13に続けて続けます：タイプの不一致

Dim StartRow, LastRow, NuRow As Variant 
    StartRow = 3 
    Sheets("Sheet3").Activate 
    If WorksheetFunction.CountA(Cells) > 0 Then 

    'Search for any entry, by searching backwards by Rows. 

    LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
End If 
    NuRow = LastRow - 1 
    Rows("StartRow:NuRow").Delete 'Run time error 13 Type Mismatch 

すべてのアイデア？

Answer 1

これは、行がそれがエラーを投げているオブジェクトです。これは、行インデックスが "3:20"のような形式であることを期待しています（たとえば）。文字列 "StartRow：NuRow"を渡しています。

Rows(StartRow & ":" & NuRow).Delete 

：

はにそのステートメントを変更してみてください

Answer 2

代わりにこれを試してみてください：

Rows(StartRow & ":" & NuRow).Delete