Compare 2 columns and shift down to match up--almost complete

I've taken this code from another forum a couple years back and am trying to adapt it to a different set of data. It checks 2 columns and matches up the lines, adding blank cells if the equivalent cells do not match up.

I have 3 inserted columns (D-F). Column D data needs to match up to the equal value in column B. Right now the macro shifts everything accurately except when the data does not exist in column D it will only shift columns A-C. I need it to ALSO shift from G-AX to include both sides of the original data.


Portion of working code:

Please Login or Register  to view this content.

Thanks in advance for your help and time!