Hi,

Just add the instruction
Range("Data").AutoFilter
as the last line in the FilterData procedure