programma Dpi

Carissimi Amici del Forum avrei bisogno di una dritta ho costruito un programmino per la registrazione di indumenti DPI è in fase di elaborazione mi sono incappato in un errore che non riesco a capire se cortesemente qualcuno mi aiuto vene sarei grato.
Nella pagina denominata Ricevuta al momento che pigio il pulsante
Pulisci mi da errore non riesco a comprendere dove sbaglio.....

In Attesa

Distinti Saluti

Ciao

io direi

---

Sub Rettangoloarrotondato5_Click() 'PULISCI'
setfg
Sheets("Ricevuta").Range("D13,I13,D17,E21,D25,D31,G31").Clear
End Sub

---

ma vba non ama le celle unite ergo
eliminale

oppure lasciandole unite

---

Sheets("Ricevuta").Range("D13:G13,D17:G17,E21:J21").ClearContents

---

completa tu gli altri range

ah!
nella macro iniziale cambia select con activate
almeno non dovrebbe andare in debug

Federico Grazie per la tua disponibilità funziona perfettamente

Saluti