Range("A4").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = cboNames.Value
ActiveCell.Offset(0, 5) = IIf(CheckBox1.Value, 1, IIf(CheckBox2.Value, 0, IIf(CheckBox3.Value, -1, "")))
ActiveCell.Offset(0, 6) = IIf(CheckBox4.Value, 1, IIf(CheckBox5.Value, 0, IIf(CheckBox6.Value, -1, "")))
ActiveCell.Offset(0, 7) = IIf(CheckBox7.Value, 1, IIf(CheckBox8.Value, 0, IIf(CheckBox9.Value, -1, "")))
ActiveCell.Offset(0, 8) = IIf(CheckBox10.Value, 1, IIf(CheckBox11.Value, 0, IIf(CheckBox12.Value, -1, "")))
ActiveCell.Offset(0, 9) = IIf(CheckBox13.Value, 1, IIf(CheckBox14.Value, 0, IIf(CheckBox15.Value, -1, "")))
ActiveCell.Offset(0, 10) = IIf(CheckBox16.Value, 1, IIf(CheckBox17.Value, 0, IIf(CheckBox18.Value, -1, "")))
ActiveCell.Offset(0, 11) = IIf(CheckBox19.Value, 1, IIf(CheckBox20.Value, 0, IIf(CheckBox21.Value, -1, "")))
ActiveCell.Offset(2, 5) = txtComments.Value
ActiveCell.Offset(0, 1) = DTPicker1.Value
ActiveCell.Offset(0, 3) = cboCoaches.Value