Quindi le ruote in tutto sono 12 compresa la nazionale e la "tutte", ok, ho capito, però allora per fare le cose pulite aggiungi 44, non 46.

Per la cancellazione puoi associare questo codice ad un altro pulsante

codice:
Private Sub CommandButton2_Click()
   Set cella_ax_sx = [C2]
   prima_colonna = cella_ax_sx.Column
   ultima_colonna = prima_colonna + 42
   prima_riga = cella_ax_sx.Row + 1
   ultima_riga = prima_riga + 44
   For riga = prima_riga To ultima_riga Step 4
      Range(Cells(riga, prima_colonna), Cells(riga, ultima_colonna)).Clear
      Range(Cells(riga + 1, prima_colonna), Cells(riga + 1, ultima_colonna)).Clear
   Next
End Sub

Come vedi in questo caso il puntamento è alla riga centrale di ogni tripletta e la seconda riga da cancellare è ottenuta aggiungendo 1 a quella puntata mentre il salto da una tripletta all'altra è affidato al solito step 4.