Private Sub CommandButton1_Click()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8)).Interior.Color = Me.CommandButton1.BackColor
End Sub
Private Sub CommandButton2_Click()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 8)).Interior.Color = Me.CommandButton2.BackColor
End Sub