Il fatto è che l'errore mi arriva già sulla riga
ReDim Preserve grandezza(UBound(grandezza) + UBound(size))