Перенос из одного листа в другой в зависимости от значений

[Rurikovitch]

Просьба помочь или указать ссылку где можно прочитать про это.
Задача:
Приложение Excel ввести набор данных соответствующим форматированию, листы переименовать: склад, заявка.
Сделать кнопку на 1 листе и назначить программный код который формирует на новом листе заявку по товарам которых на складе осталось менее 3 экземпляров.
На листе заявка вывести кнопку для перехода на первый лист и ещё кнопку сброс для очистки листа.

На всякий случай скопирую код к которому пришел:
Private Sub CommandButton1_Click()
Dim r As Integer
Dim cell(2 To 11) As Range
Dim i As Integer
For i = 2 To 21
Set cell(i) = Cells(3, i)
If cell(i).Value < 3 Then
Worksheets("Склад").Range(a$, b$).Value = Worksheets("Заявка").Range(a$, b$).Value
End If
Next i
For r = 2 To 11
c$ = "c" + Trim$(Str$(r))
Range(c$) = Worksheets("Заявка").Range(c$)
Next r
End Sub

[EducatedFool]

000000000000000

[Rurikovitch]

Огромнейшее спасибо Вам.

[Rurikovitch]

Тему можно закрыть.