Copy values with vba when not blank and turn into table

Hello,

I would like to create a code that copys the non blank values from column A while meeting a value in column b and then adding it to a table

So for example if range("a:a") >="" and range("b:b") = 1 then add the values that meet the criteria to table1

If range("a:a") >="" and  range("b:b") = 2 then add the values that meet the criteria to table2

Etc.

I've added an example workbook

Nick