Это снова я))

Помогите вставить значения, вместо формул. Только просьба - не изменяйте макрос))

Sub SborkaListov()

Dim rgOdinpreparat As Range 'данные на одном листе
Dim rgAll As Range 'данные по всем препаратам
Dim rgtarget As Range 'ячейка для вставик новых данных

'Открыть книгу =Пример обработанных РУ по лексредствам=
Dim strFile As String
strFile = "C:\Documents and Settings\uvtseplyaev\Desktop\Пример обработанных РУ по лексредствам.xlsx"

Dim wbkPreparati As Workbook 'переменная для рабочей книги

Set wbkPreparati = Application.Workbooks.Open(strFile)

' Цикл п овсем листам книги Пример обработанных РУ по лексредствам.xlsx
Dim shtX As Worksheet 'переменная для листа
For Each shtX In wbkPreparati.Worksheets

'Данные по одному препарату
Set rgOdinpreparat = shtX.Range("A1").CurrentRegion.Resize(2) ' с заголовком
Set rgOdinpreparat = rgOdinpreparat.Offset(1).Resize(rgOdinpreparat.Rows.Count - 1)

'Данные по всем препаратам
Set rgAll = ThisWorkbook.Worksheets("Лист1").Range("A1").CurrentRegion
Set rgtarget = rgAll.Resize(1, 1).Offset(rgAll.Rows.Count) ' для вставки новых данных
rgOdinpreparat.Copy rgtarget





Next shtX

wbkPreparati.Close SaveChanges:=False


End Sub

Пользуясь вашими советами, вот что получилось

If rgOdinpreparat.HasFormula Then

rgOdinpreparat.Value = rgOdinpreparat.Value

End If