Здравствуйте. Подскажите пожалуйста, очень нужна Ваша помощь!!! У меня есть макрос, который копирует из книги (под названием "Заполнение") определенную строку и и вставляет в другую книгу (под названием Хранение) в следующую свободную строку, нужно тоже самое, только, чтобы копировал из определенной строки нужные ячейки ("A2", "C2", ""E2","F2", "H2").
Код
Sub Запись()
Application.ScreenUpdating = False
'Обращаться с книгами будем через переменные
'(кода меньше писать и не промахнёшься мимо нужной книги)
Dim Исходная As Excel.Workbook, Конечная As Excel.Workbook
Dim nss As Long
Set Исходная = ActiveWorkbook
'открываем книгу
Set Конечная = Workbooks.Open("D:\Данные\Хранение.xlsm")
'копируем строку
Исходная.Worksheets(1).Rows("2:2").Copy
'выбираем номер начальной строки для поиска последней записи
nss = 2
'ищем последнюю запись
Do While Конечная.Worksheets(1).Range("B" & nss).Value <> ""
'увеличиваем номер строки на 1
nss = nss + 1
Loop
'вставляем строку из буфера
Конечная.Worksheets(1).Rows(nss).PasteSpecial
Конечная.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub