Вы можете побежать Кодий для cboEmployees после петли
Приватное Sub cmdOK_Click ()
ActiveWorkbook.Sheets («DTS»). Активируйте
Ряд («C15»). Отборно
Сделайте
Если IsEmpty (ActiveCell) = ложно после этого
ActiveCell.Offset (1, 0). Отборно
Закончитесь если
Не закрепить петлеть до IsEmpty (ActiveCell) = True
ActiveCell.Value = cboEquipment.Value
'-----------------------------------------------
ActiveWorkbook.Sheets («DTS»). Активируйте
Ряд («C16»). Отборно
Сделайте
Если IsEmpty (ActiveCell) = ложно после этого
ActiveCell.Offset (1, 0). Отборно
Закончитесь если
Не закрепить петлеть до IsEmpty (ActiveCell) = True
ActiveCell.Value = cboEmployee.Value
Подводная лодка конца