Копирование необходимой информации из одного листа на другой.

[Eg-An]

Всем здравствуйте! Пытаюсь решить задачку, но не знаю как сделать. Есть табличка с товаром и датой. Надо делать что то типа инвентаризации. Берем колонку и и копируем на второй лист наименование товара и строки учетное кол-во и фактическое кол-во, но только те которые изменялись.
У меня есть такой макрос
Sub test()
Dim cell As Range, ra As Range
Set ra = [a3:c3]
For Each cell In Range([c3], Range("c" & Rows.Count).End(xlUp)).Cells
If Len(cell) Then
Set ra = Union(ra, Range(cell, cell.EntireRow.Cells(1)))
End If
Next cell
Dim sh As Worksheet: Set sh = Worksheets("Лист2")
sh.Range("a4:c10, a4:a10").Clear
ra.Copy sh.[a4:c4]
End Sub
Который худо бедно справляется с копированием. Вопрос как его привязать чтоб он выполнял по дате копирование? Может можно вывести ввод даты в пользовательскую форму? Заране Всем большое спасибо.

[Eg-An]

Может я не понятно объяснил. А как сделать что бы на второй лист откопировать из столбца "A" наименование из столбца "D и E" кол-во потом также для столбца "J и K". Например выделить диапазон "d" и "e" и если есть не пустые строки скопировать на втрой лист значение из столбца "а" и "d e". И посоветуйте книгу по VBA.

[kuklp]

Искомая дата вводится в желтую ячейку и жмем кнопку.

[Eg-An]

Спасибо!!!! Буду теперь разбираться!