VBA 删除重复行

上一步提取网址后，有些行是重复的，我们要删除，以下操作删除某列重复的行

'删除某列有重复值的行
Sub delrow()
Dim r As Integer
Dim i As Integer
With Sheets("sheet1")
    r = .[A65536].End(xlUp).Row
    For i = r To 1 Step -1
        If WorksheetFunction.CountIf(.Columns(2), .Cells(i, 2)) > 1 Then
            .Rows(i).Delete
        End If
    Next
End With
End Sub

如下图：想要删除B列有重复的行，保留最上面一行