Private Sub CheckBox1_Click()
If CheckBox1 Then
a = CheckBox1.TopLeftCell.Row
Select Case Range("C" & a)
Case 7
Range("E" & a & "," & "G" & a & "," & "I" & a & "," & "K" & a & "," & "M" & a).Value = Range("C" & a)
Range("F" & a & "," & "H" & a & "," & "J" & a & "," & "L" & a & "," & "N" & a).Value = 1
Case 8
Range("E" & a & "," & "G" & a & "," & "I" & a & "," & "K" & a & "," & "M" & a).Value = Range("C" & a)
End Select
Else
a = CheckBox1.TopLeftCell.Row
Range("E" & a & "," & "G" & a & "," & "I" & a & "," & "K" & a & "," & "M" & a).Value = Empty
Range("F" & a & "," & "H" & a & "," & "J" & a & "," & "L" & a & "," & "N" & a).Value = Empty
End If
End Sub