VBA code to search / select - how to exclude inactive items?

Good day all;

I have a file I've been using for a bit now, trying to isolate and not show the inactive items in these two searches:

In this first example, the macro will copy and paste relevant information into a phone list for easy printing - I'd like to have it search Sheet2 range H:H for "a" to indicate the individual is active and thus should be on the list, and to exclude those that are not;

Please Login or Register  to view this content.

This second example is the command for a "search" key that returns the results based on the name entered into the search box, and displays those names in a list box for the user to select the one they are looking for - again I'd like to be able to exclude those that are not "active" - by excluding anyone that does not have an "a" in the sheet2 range H:H

Please Login or Register  to view this content.

Appreciate your time and wisdom!