Вставить значения без формул

[mult_99@inbox.ru]

Добрый день. Помогите, пожалуйста, поправить код.

Sub Свод()
Dim sh As Worksheet
With Sheets("Свод")
.UsedRange.Offset(1).Clear
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Свод" Then
sh.AutoFilterMode = 0
sh.Range("$A$1").CurrentRegion.Auto Filter Field:=15, Criteria1:="=К выдаче" _
, Operator:=xlOr, Criteria2:="=444444"
sh.Range("$A$1").CurrentRegion.Offs et(1).SpecialCells(12).Copy .[a65536].End(xlUp)(2, 1)
sh.AutoFilterMode = 0
End If
Next
End With
End Sub

Сейчас он переносит строку с формулами, а нужно только значения. Как поправить?

[Serge 007]

Range("a1").PasteSpecial Paste:=xlPasteValues

a1 замените на на адрес вставки