Сохранение выделеного в файл

[Айдар]

Добрый день, есть список, его сотрудники пополняют и в конце рабочего дня они выделяют все записи за день и нажимаю кнопку, запись выделенного (на нем макрос)
суть макроса копирование выделенной области на др лист (уже сделал) и копирование выделенных данных в отдельный файл и его пополнение (не сделал) и хочу еще отчищать раб область (лист куда сотрудники в течение дня вводят записи). Очень нужна ваша помощь

Sub ЗаписьВОбщийЖурнал()
'
' Макрос2 Макрос


Selection.Copy
Sheets("База данных").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveWorkbook.Save
Sheets("Исходные данные").Select
Selection.ClearContents
Range("A3").Select

'это часть работает замечательно

' это копирования выделения в другой файл
If Not TypeName(Selection) = "Range" Then Exit Sub
Dim lr&, wb As Workbook, lb As Workbook
With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
Set wb = GetObject("c:\test.xls") 'путь к файлу-накопителю
Set lb = ThisWorkbook
lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Selection.Copy wb.Sheets(1).Cells(lr + 1, 1)
wb.Close (True) ' закрыть с сохранением
With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
Set wb = Nothing: Set lb = Nothing


End Sub

Вот что сделал
http://yadi.sk/d/jXjspSn53YZKA

[kuklp]

Кросс:
http://www.planetaexcel.ru/forum/?PA...ID=1&TID=46983
http://www.sql.ru/forum/actualthread.aspx?tid=1012233
http://www.excelworld.ru/forum/2-4125-1#44012