Convert Formulas In Filtered Range To Values

I want to create a Macro to convert the formula results from a filtered data range to values. I thought to use a simple code to do the copy - paste to value

Sub QuickSaveValue()
Dim r As Range, c As Range
Set r = Selection
For Each c In r.SpecialCells(xlCellTypeFormulas)
c.Copy
c.PasteSpecial xlPasteValues
Next c
Application.CutCopyMode = False
End Sub

But is not good because the range is much to large and i need just a filtered part to be changed and i tried like this:

Sub QuickSaveTV()................