Questo script dovrebbe fare quello che ti serve:

codice:
Private Sub CommandButton1_Click()

   Set cella_ax_sx = [C3]

   prima_colonna = cella_ax_sx.Column
   ultima_colonna = prima_colonna + 42
   prima_riga = cella_ax_sx.Row
   ultima_riga = prima_riga + 40

   For riga = prima_riga To ultima_riga Step 4
      Rows(riga + 2).Clear
      i = prima_colonna

      For cella1 = prima_colonna To ultima_colonna

         For cella2 = prima_colonna To ultima_colonna

            If Cells(riga, cella1) = Cells(riga + 1, cella2) Then
               Cells(riga + 2, i) = Cells(riga, cella1)
               i = i + 1
               Exit For
            End If

         Next

      Next

   Next

End Sub
Devi solo associarlo ad un pulsante ActiveX (credo che tu sappia come si fa).

Dall'immagine mi è sembrato di capire che il primo dato in alto a sinistra (il 2 su fondo arancio tanto per capirci) si trova nella cella C3, vero? Se non è così aggiorna la prima riga del codice.