كود advanced filter لا يعمل

Sub filter()



        Dim CustID As String: CustID = sheet2.[g3].Value

        Dim FromDt As Long: FromDt = sheet2.[C3].Value

        Dim ToDt As Long: ToDt = sheet2.[e3].Value



Application.ScreenUpdating = False



        With sheet1.[A3].CurrentRegion

                .AutoFilter 4, CustID

                .AutoFilter 1, ">=" & FromDt, xlAnd, "<=" & ToDt

                .Offset(1).EntireRow.Copy sheet2.Range("A" & Rows.Count).End(3)(2)

                .AutoFilter

        End With



Application.ScreenUpdating = True



End Sub