Excel Vba Loop Through Two Dimensional Motion