VBA to Copy Paste Special Values in Filtered Data

Sub CPSVFilteredData()
 
    Dim FilteredData As Range
    Dim rng As Range
 
    Set rng = Selection.SpecialCells(xlCellTypeVisible)
 
    For Each FilteredData In rng
    FilteredData.Value = FilteredData.Value
 
    Next FilteredData
End Sub

Where:

1. FilteredData is the data contains formula that you want to convert into values. Basically, the data that you want to copy and paste special values
2. rng is the range in your selection

How it works:

1. Firstly, filter the data that you want to convert into values
2. Run the macro. You can save in your personal xlsb and assign shortcut in your Quick Access Toolbar