Hi

another way..

Code:
i = Range("a" & Rows.Count).End(xlUp).Row'last row in column a with data

Set rngFilter = Range("A10:U" & i)