Improve Excel VBA to remove data

The current excel sheet and VBA code checks for column B and Column D. Whenever there is a value in Column B that does not exist in column D, the script removes that row of Column A/B and shifts the next (of those columns ONLY) rows up. For example if D3 does not match B3, then we must delete C3,D3 and E3 and move C4,D4,E4 up. It also does the same if there is a value in column D that does not exist in B. In that case, it will delete that row of column C/D/E and shifts the next row (of those columns ONLY) up. You can see how the script currently works by running the VBA by clicking on "Remove C/D or A/B" button. Note that the second button does NOT work. Now what I want to do is to continue this script so that after we compare Column A/B to C/D/E, we then compare A/B to F/G, and then compare A/B to H/I At the end, the result should be that EACH row will have the same value in columns B, D, G and I (i.e total number of rows will be equal for all columns). Also, sometimes there is a "Error Type Mismatch" that appears. It can be bypassed by simply clicking "OK" and then clicking again on "Remove C/D or A/B" button. However, this is manual and tedious. We need to AVOID this error completely or incorporate a step to automatically ignore it.