Копирование и вставка данных как значение.

[Shkoda]

Всем привет.

Нашел шаблон макроса который мне нужен, но столкнулся с такое проблемой.
Есть два фаила, 1 - создание отчета, 2 - хранение итогов. При копировании из одного в другой копирует вместе с формулами, а нужно чтоб копировало только значения. Возможно ли такое?
Пример во вложении.

[аналитика]

это код формы (поменяешь две строки - они помечены, объявишь диапазон):

Private Sub cbInput_Click()
Dim LName As String, WSh As Object

Dim r As Range '<-----------------

'MsgBox "листов " & Sheets(1).ShCnt & "  путь " & Sheets(1).myPath
Application.ScreenUpdating = False
LName = ComboBox1.Value
Set WSh = ThisWorkbook.Worksheets(1)
'WSh.UsedRange.Value = WSh.UsedRange.Value
WSh.Shapes(1).Delete
'For Each iVBComponent In ActiveWorkbook.VBProject.VBComponents
    'With iVBComponent
        'Select Case .Type
            'Case 1 To 3: .Collection.Remove iVBComponent
            'Case 100: .CodeModule.DeleteLines 1, .CodeModule.CountOfLines
        'End Select
    'End With
'Next
Set wbCopy = GetObject(myPath & "\Хранить_отчет.xls", "Excel.Sheet")
MsgBox wbCopy.Name & "  ShCnt = " & ShCnt

Set r = WSh.UsedRange 'WSh.UsedRange.Copy <-----------------
With wbCopy
    .Activate
    .Sheets.Add after:=Worksheets(ShCnt)
    .Worksheets(ShCnt + 1).Cells(r.Row, r.Column).Resize(r.Rows.Count, r.Columns.Count) = r.Value '.Worksheets(ShCnt + 1).Paste  <-----------------
    .Worksheets(ShCnt + 1).Name = LName
    .Windows("Хранить_отчет.xls").Visible = True
    .Save
End With
Unload Me
ThisWorkbook.Close False
End Sub