Помогите изменить диапазон данных на -1 строку (без заголовка)
Selection.Offset(1).Resize(Rows.Count - 1).Select - после выполнения этого кода выделенный диапазон продлевается вниз до конца листа. Где я снова ошибся?

Sub CollectInfo()

Dim iTempFileName As String 'имя поочерёдно открываемого файла
Dim OriWB As Workbook 'оригинальный файл

With Application

Const DirLoc As String = "C:\Обработка филиалов СИА\"
iTempFileName = Dir(DirLoc & "*.xls")

Set OriWB = Workbooks.Open(Filename:=DirLoc & iTempFileName, ReadOnly:=True)


OriWB.Worksheets(1).Range("A1").CurrentRegion.Select

With .Worksheets(1)
Selection.Offset(1).Resize(Rows.Count - 1).Select

End With

End With

End Sub

Korcar
Это только начало))

Потом мне надо будет написать в столбце "А" название файла, из которого копируются данные и скопировать его по всему диапазону)))

Ну и пусть не красиво, зато работает)

Теперь у меня другая проблема(( В книге, куда я собираюсь копировать данные, не могу определить последнюю заполненную ячейку столбца "B" -1 ячейка.

Может кто знает, как это будет выглядеть в моем когде?

Сергей06

Я просматриваю все схожие задачи на форуме. Проблема в том, что я "чайник" в VBA. Что-то простое я еще могу написать (макрорекордер подскажет, если что), а чуть сложнее уже не получается. С этими объектами, свойтсвами такая путаница. То они работают, то нет.

Например, определение последней ячейки в одном рабочем примере, категорически не хочет работать в моей задаче. И так во всем.