Copy values only when using a filter

Hello,

VBA below, this is doing exactly what I want... however I can not get it to copy values only...not the formulas and a list which is in a couple of cells

Can anyone help please ..


Sub CopyingDataToNewItems()

Dim FilterRng As Range
Dim CopyRng As Range
Dim Dest As Range
With Sheets("Input (2)")
Set FilterRng = .Range("A5", .Range("A" & Rows.Count).End(xlUp))
Set CopyRng = .Range("A5", .Range("A" & Rows.Count).End(xlUp))
End With
With Sheets("New Items Added")
Set Dest = .Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
FilterRng.AutoFilter Field:=1, Criteria1:=">1"
CopyRng.SpecialCells(xlCellTypeVisible).EntireRow.Copy destination:=Dest

FilterRng.AutoFilter

End Sub


Many Thanks