Penso che hai compreso il mio problema. Non posso inserire il codice da te proposto
rr.Offset(0, 0).Value = 0
perchè gli "zeri" o gli "uno" della colonna AR sono risultati di formule, come pure i valori nelle colonne AP e AQ . Pertanto, facendo partire il tuo codice, vado a "scasinare" le formule sul foglio excel
Comunque cerco di allegare le immagini numerate da 1 a 3 che indicano quello che vorrei ottenere. La numero 1 è la situazione iniziale, prima che io mandi in esecuzione il codice. La numero 2 indica il risultato del mio codice. La numero 3 è il risultato che vorrei ottenere anche se credo che tu l'abbia già capito)