Sheets("TDB").Range("AL2") = "<=" & DateSerial(Year(Sheets("TDB").Range("g4").Value), Month(Sheets("TDB").Range("g4").Value) + 1, 0)
Sheets("TDB").Range("AM2") = ">=" & DateSerial(Year(Sheets("TDB").Range("g4").Value), Month(Sheets("TDB").Range("g4").Value), 1)
Sheets("segment").Cells.Clear
Sheets("IOP2").Range("data").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets("TDB").Range("AL1:AM2"), CopyToRange:=Sheets("segment").Range("A1"), Unique:=False