Problem with macro

[Jeeremy7]

Hello,

I have a macro running but i think some informations are in double so the macro doesn't work..
If somoene could help it would be really nice

Here's the code

    lr = Cells(Rows.Count, "A").End(xlUp).Row
    For r = lr To 1 Step -1
        If (Cells(r, "B") Like "") Then
            If Rng Is Nothing Then Set Rng = Rows(r) Else Set Rng = Union(Rng, Rows(r))
        End If

    lr = Cells(Rows.Count, "A").End(xlUp).Row
        If Not (Cells(r, 1) Like "##-####") Then
            If Rng Is Nothing Then Set Rng = Rows(r) Else Set Rng = Union(Rng, Rows(r))
        End If
    Next r
    If Not Rng Is Nothing Then Rng.Delete
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.EnableEvents = True

Thanks !

 

[DanteAmor]

Glad we could help & thanks for the feedback