di Vecchio Frac data: 08/06/2017 13:36:30
Esiste la proprietà .BottomRightCell di un oggetto Shape che indica la cella occupata dal suo vertice inferiore destro. Ovviamente poi devi scendere di una riga per il riferimento successivo.
Fai una prova in finestra immediata con questa istruzione e verifica la correttezza del risultato:
?activesheet.shapes(1).bottomrightcell.address