In macro1, loop through each row in column B. If the value matches the category of interest, call macro2 and pass the business from column A as an argument.
In macro2, verify that the business name has not yet been copied (e.g., Find fails to find the name). Loop through each row in column A. If the name matches the passed in name, copy the row to the target.