Копирование определенных ячеек с одного листа в другой??? - VB

Формулировка задачи:

Есть форма в неё вносятся 4 критерия (дата с .. по .. , и три строковых поля). Нужно с первого листа где забита база скопировать определённые ячейки которые удовлетворяют вышеуказаный критерий. Если кто-то может помочь, пишите, буду благодарен

Решение задачи: «Копирование определенных ячеек с одного листа в другой???»

textual
                            Листинг программы 
                        

                            ...
ThisWorkbook.Worksheets(<font color="teal">"Report_list"</font>).Rows(<font color="teal">"2:2"</font>).EntireRow.<font color="blue">Select</font>
             Selection.Insert Shift:=xlDown
             
             ThisWorkbook.Worksheets(<font color="teal">"Report_list"</font>).Cells(<font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>1</b></font>).Value = nd
             ThisWorkbook.Worksheets(<font color="teal">"Report_list"</font>).Cells(<font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>2</b></font>).Value = str
             ThisWorkbook.Worksheets(<font color="teal">"Report_list"</font>).Cells(<font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>3</b></font>).Value = vn
             ThisWorkbook.Worksheets(<font color="teal">"Report_list"</font>).Cells(<font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>4</b></font>).Value = ud
             ThisWorkbook.Worksheets(<font color="teal">"Report_list"</font>).Cells(<font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>5</b></font>).Value = per
             ThisWorkbook.Worksheets(<font color="teal">"Report_list"</font>).Cells(<font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>6</b></font>).Value = dt
             ThisWorkbook.Worksheets(<font color="teal">"Report_list"</font>).Cells(<font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>7</b></font>).Value = np
....

                        