Application.ScreenUpdating = TRUE

'On Error Resume Next

Set wb_ = GetObject(fp_ & fn_)

Sub Attach2File_test()
Filenames = GetFilePath()
End Sub
Function GetFilePath(Optional ByVal Title As String = "Выберите файлы для обработки", _
Optional ByVal InitialPath As String = "D:\4\", _
Optional ByVal FilterDescription As String = "", _
Optional ByVal FilterExtention As String = "*.*") As String
On Error Resume Next

With Application.FileDialog(msoFileDialogOpen)
.ButtonName = "Выбрать": .Title = Title:
.InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)
.Filters.Clear: .Filters.Add FilterDescription, FilterExtention
.AllowMultiSelect = True

If .Show <> -1 Then Exit Function

For Each vrtSelectedItem In .SelectedItems

folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
SaveSetting Application.Name, "GetFilePath", "folder", folder$
Workbooks.Add
Call test(vrtSelectedItem)

Next vrtSelectedItem

End With
End Function

Sub test(s)

Set wb = Workbooks.Open(s)
wb.Worksheets(1).Select
On Error Resume Next
With wb_.Sheets("Sheet1")
lr1 = Cells(Rows.Count, 2).End(xlUp).Row + 1
' MsgBox lr1
lr2 = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("A3:J3").Resize(lr2).Copy Cells(lr1, 1)
End With
wb_.Close False
lr_ = Empty
wb.Close SaveChanges:=True
End Sub

lr1 = Cells(Rows.Count, 2).End(xlUp).Row + 1

lr2 = .Cells(Rows.Count, 2).End(xlUp).Row

.Range("A3:J3").Resize(lr2).Copy Cells(lr1, 1)

GetObject

ActiveSheet