Попытка вставить значения ячеек вместо относительной ссылки. однако .PasteSpecial Paste: = xlPasteValues выдает ошибку?
Private Sub CommandButton1_Click()
Dim Fname As String
Dim SrcWbk As Workbook
Dim DestWbk As Workbook
Set DestWbk = ThisWorkbook
Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Select a import file")
If Fname = "False" Then Exit Sub
Set SrcWbk = Workbooks.Open(Fname)
SrcWbk.Sheets("Resources").Range("D1:AV206").Copy DestWbk.Sheets("Resources").Range("C87:AV293")**.PasteSpecial Paste:=xlPasteValues**
SrcWbk.Close False
Columns("A:AB").ColumnWidth = 13
Rows("1:5000").autofit
End Sub