заполнение ячейки через форму

[Юрий_brv]

Добрый день  .  Хочу добавить дополнительно строку "Всего",что бы можно было вводить доп.данные               
и сумировать количествои подсчет клиентов               
У меня вопрос , как подтянуть строку "Всего" она уходит в низ, а надо чтобы она была сразу после новой заявки.               
Спасибо.               

[Шпец Докапыч]

1. При создании заявки добавлять пустую строку под "Всего":

Код Выделить Развернуть

   '.Rows(5).Resize(i).Insert
    .Rows(5).Resize(i + 1).Insert
2. Поскольку заявки добавляются сверху, то и строку (в данному случае пустую) для "Всего" надо искать сверху:

Код Выделить Развернуть

'NextRow = Sheets("отчет").Cells(Rows.Count, 6).End(xlUp).Row + 1
NextRow = Sheets("отчет").Cells(3, 1).End(xlDown).Row + 1
3. Ну а, зная номер строки "Всего", число циклов уже определено:

Код Выделить Развернуть

'For counter = 200 To 3 Step -1
For counter = 5 To NextRow - 1
Ну и условие внутри цикла для поиска "Всего" больше не требуется.

[Юрий_brv]

Спасибо сделал корректировку. Вопрос , Почему не работает просчет?            
По нажатию на кнопку Итого должен быть : счетзаполненых ячеек и сумма колличества            
Цифры добавлены в ручную.            
Можно под корректировать код.            
Спасибо.            

[Шпец Докапыч]

Код для кнопочки [Итого:]

Код Выделить Развернуть

Private Sub CommandButton3_Click()
Dim NextRow
  NextRow = Sheets("отчет").Cells(3, 1).End(xlDown).Row + 1
  Cells(NextRow, 2) = "Всего"
  Cells(NextRow, 3) = NextRow - 5
  Cells(NextRow, 6) = WorksheetFunction.Sum(Cells(5, 6).Resize(NextRow - 5, 1))
  Selection.Borders(xlDiagonalDown).LineStyle = xlNone
End Sub

[Юрий_brv]

Спасибо. Все работает.

[Юрий_brv]

Добрый день . Решил вернуться к старой теме в процессе работы возник вопрос: если 2 клиента или больше ,как подкорректировать код ,чтобы  работало корректно.                
                  
Спасибо.                  

[Шпец Докапыч]

Если каждому товару соответствует свой Клиент, то надо перенести выбор клиентов в нижнюю часть и выбирать клиента для каждой позиции.

[Юрий_brv]

Шпец Докапыч ,большое спасибо все заработало