Originariamente inviato da NonCeLaFaccio+
Credo che il problema nasca dal fatto che la colonna H è all'interno del range di dati e questo porta a risultati imprevedibili.

Prova quest'altro script che esamina il range A1-BH2 e scrive nella colonna BI

codice:
Private Sub CommandButton1_Click()

   With Range("BI:BI")
      .Value = ""
   End With
   
   For Each casella In Range("A1", "BH2")

       If casella.Interior.ColorIndex = xlColorIndexNone Then
          casella.Value = ""
       Else
          If Cells(casella.Row, 61).Value = "" Then
             Cells(casella.Row, 61).Value = casella.Value
          Else
             Cells(casella.Row, 61).Value = Cells(casella.Row, 61).Value & "," & casella.Value
          End If
       End If

   Next
End Sub
Provato subito ma purtroppo anche questo script mi porta via tutto...