请教老师：将颜色单元格放到对应标题下面？

Private Sub CommandButton1_Click()

Call CommandButton2_Click
For i = 1 To 8
    Cells(1, 38 + i) = Cells(i, 37)
    For m = 1 To 35
        For n = 1 To 25
            If Cells(n, m) = Cells(i, 37) Then
               Cells(n, m).Interior.Color = 32768
            End If
        Next
     Next
Next

For k = 1 To 8
        z = 2
    For y = 1 To 35
        If Cells(1, y) = Cells(1, 38 + k) Then
           For w = 2 To 22
               If Cells(w, y).Interior.Color = 32768 Then
                   Cells(z, 38 + k) = Cells(w, y)
                   z = z + 1
               End If
           Next
        End If
    Next
Next

End Sub

Private Sub CommandButton2_Click()
For m = 1 To 25
    For n = 1 To 35
        Cells(m, n).Interior.ColorIndex = xlNone
    Next
Next
For x = 1 To 8
    For y = 1 To 8
        Cells(x, 38 + y) = ""
    Next
Next
End Sub