Macro to compare row criteria and cut to tab

Hi guys

Am working on a macro which needs to do the below
Data is sorted by A. Where 1 row matches the row below on Columns A, C, ABS D, H, I and J both rows should be copied to Boxes tab. Where there is only a single a/c number or both rows don't match on any 1 of the criteria- rows should remain on the Data tab.

Appreciate any help

Thanks

Noel