Delete Dupes Macro - Error When No Dupes

Hi -

I have the below macro that I have been using, and it works perfect to flag and remove duplicates. But when there are no duplicates found on the sheet, I get an error at the line below in red.

I am not sure how I would revise this to account for a scenario when there are no duplicates to remove, and I was hoping that someone might be able to assist me here today.

Thank You SO much in advance!!

Sub G_Delete_Dupes_From_Main()
 

Dim toDel(), I As Long
 Dim RNG As Range, Cell As Long
 Set RNG = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
 

For Cell = 1 To RNG.Cells.Count
 If Application.CountIf(RNG, RNG(Cell)) > 1 Then
 ReDim Preserve toDel(I)
 toDel(I) = RNG(Cell).Address
 I = I + 1
 End If
 Next
 For I = UBound(toDel) To LBound(toDel) Step -1
 Range(toDel(I)).EntireRow.Delete
 
Next I
 
End Sub