Private Sub CommandButton1_Click()
Dim café, IndewW As Integer, LastRow As Integer, L As Integer, C As Integer
café = RGB(217, 151, 149)
IndexW = 1
Range("K:K").ClearContents
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For C = 1 To 5
For L = 1 To LastRow
If Cells(L, C).Interior.Color = café Then
Cells(IndexW, 11) = Cells(L + 1, C)
IndexW = IndexW + 1
End If
Next L
Next C
End Sub