Cercando cercando alla fine ho trovato questa soluzione che sembra andare bene.

Con il codice sottostante riesco a posizionare il margine superiore del grafico nella cella A20.

codice:
xlSheet.ChartObjects(1).Left = xlSheet.Columns(1).Left
xlSheet.ChartObjects(1).Top = xlSheet.Rows(20).Top
A questo punto mi basta calcolare l'ultima riga usata per la rappresentazione dei valori per sostituire i vari numeri messi come prova nei miei esperimenti con una cella utile al posizionamento del grafico.