Создание макроса для копирования с закрытой книги

[fresh-t@yandex.ru]

Сообщение от virus1990

Вот этот код впринципе подошел бы если бы происходило полное копирование.

Sub Get_Value_From_Close_Book()
Dim sShName As String, sAddress As String, vData
'Отключаем обновление экрана
Application.ScreenUpdating = False
Workbooks.Open "C:\Documents and Settings\Книга1.xls"
sAddress = "A1:C100" 'или одна ячейка - "A1"
'получаем значение
vData = Sheets("Лист1").Range(sAddress).Val ue
ActiveWorkbook.Close False
'Записываем данные на активный лист книги,
'с которой запустили макрос
If IsArray(vData) Then
[A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
Else
[A1] = vData
End If
'Включаем обновление экрана
Application.ScreenUpdating = True
End Sub

Тоисть этот код не копирует Формулы в ячейках, цвета, рамки

ПОЖАЛУЙСТА, подскажите, что нужно поменять в конце, чтобы вставка диапазона была в первую пустую ячейку столбца A диапазона?

[Aleksandr H.]

........
Dim c as range
Set c = Columns(1).Find(Empty, Cells(Rows.Count, 1), xlValues, xlWhole) 'первая пустая  
If IsArray(vData) Then
c.Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
Else
c = vData
End If
............

[fresh-t@yandex.ru]

благодарю!