run time error 1004 autofilter method of range class failed

[07avr]

Hello, need some ideas? i have this code and it was perfect but i have some errors? and I don?t understand why.
This is the code:

Private Sub Worksheet_Activate()
 
    Dim UR As Range

    Set UR = Sheets("Urmarire 2022").UsedRange
    Sheets("Restante").Cells.ClearContents
    UR.AutoFilter 16, "<" & CDbl(Date + 3) ' here i have this error: run time error 1004 autofilter method of range class failed
    UR.AutoFilter 15, ""
    UR.SpecialCells(xlCellTypeVisible).Copy Sheets("Restante").Cells(1, 1)
    UR.AutoFilter
    
     For x = 1 To Cells(Rows.Count, "p").End(xlUp).Row
        If Cells(x, 16) < Date Then
            Cells(x, 16).Interior.Color = vbRed
        End If
    Next x
    

    
End Sub

[rollis13]

That's because you have no data in columns P:Q (15:16) and no other data beyond those columns. In this case you be trying to filter a range outside "Sheets("Urmarire 2022").UsedRange".
Add a MsgBox here just to see what I mean:

Set UR = Sheets("Urmarire 2022").UsedRange
MsgBox "Usedrange = " & UR.Address             '<- added for debugging
Sheets("Restante").Cells.ClearContents

[07avr]

MesBox say " Usedrange = $A$1:$P$5163..... any ideas why not working?

[rollis13]

Sorry, no other idea, a valid UsedRange exists so I don't see any other reason why your macro could go wrong.
Maybe if you attach a dummy 'not working' file (just a few rows of data).

[07avr]

i found the problem.... it is set filter in first sheet ... if i remove filter in first sheet the code it`s great again

[rollis13]

Well done .