Добрый день, друзья!
Подскажите, пожалуйста, по такой проблеме. Каждый день приходиться вести один файл и в него заносишь данные в статичные ячейки и столбцы. Для оптимизации процесса задумался о макросе.
Имеется файл с итогами за число в виде сводной таблицы. Есть файл, куда все это вставляется. (см. табл), помогите написать макрос, чтобы из одного файла копировать данные в другой в последнюю свободную строчку,а в колонке а ставил сегодняшнюю дату,а в графу формула -  копировалась формула с ячейки,например (g1).  И если еще есть возможность, чтобы макрос копировал  после того как отфильтровал таблицу в определенной колонке, на определенный критерий. (например только определенное значение = линии 2)

а1	b1	c1	d1
дата	ресурс	кол.	формула
11/05	линия 2	200

Что я нагуглил - простой макрос для копирования в пустую строчку,но как сделать, чтобы он все делал одним макросом я не знаю,по-этому и написал вам, уважаемые эксперты.

Скрытый текст
макрос Sub test    With Worksheets("Sheet2")        .Range("b1:D5").Copy .Range("b" & .Rows.Count).End(xlUp)    End With End Sub

Заранее спасибо за ответы!