Vba Excel Loop Through Rows In R