1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
Private Sub cmdOK_Click() ActiveWorkbook.Sheets("DTS").Activate Range("C15").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.Value = cboEquipment.Value End Sub