How apply offset within a for loop with union of range ? VBA

Question

I would like to iterate in multiple ranges at the same time and compare the value of cells with previous in VBA to calculate new coordinates:

Here a piece my data: