Pretty snazzy Charles.
Looks like just the following line in the form code needs to be changed from
ws.Range("A8:j8").Select to ws.Range("A7:j7").Select that way it will apply the filter on the header row instead of the first data row. I like this quite a bit its a great solution.

Lonnie does this work for you?