Здравствуйте нужна помощь. Мне нужно скопировать выделенные строки из одной таблицы в другу таблицу, на конкретный лист в последнюю не заполненную ячейку. Вот нашел макрос
Код
Sub transponir22() ' переносим файлы в общий отчет
Dim x1 As Long, rn As Range
Set rn = Cells(ActiveCell.Row, 1).Copy
Workbooks.Open Filename:="D:\Данные\Хранение.xlsm" ' открываем файл отчета
x1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(x1, 1), Cells(x1 + rn.Rows.Count - 1, 1)).NumberFormat = "@"
Range(Cells(x1, 1), Cells(x1 + rn.Rows.Count - 1, rn.Columns.Count)).Value = rn.Value
ActiveWorkbook.Close 1 'закрываем с сохранением
End Sub
Но он копирует конкретную строку из одной таблицы, на лист в котором было последнее сохранение