La butto lì.......

VenditeDataGridView.RowCount

ti dà il numero delle righe (esempio 10 righe). Ma le righe sono in base 0 (cioè da 0 a 9) per cui poi dovresti mettere:

... + Val(VenditeDataGridView.Rows(i-1)........

poiché la riga 10 in base 0 non esiste e ti dà Out of range error.