Need macro from basic table to a reorganized table
 

Hello to all. Could you please help for a macro to this: I have coordinates of say four points where Y is Northing and X is Easting as in attached Figure 1. I need macro to arrive to Figure 2 (in same or new sheet) so that to compute for their difference until I do myself bearings and distance in columns E and F. Also much better that the macro applies to ANY number of points. My gratitude, Thank you.