SparksEdge: How to Copy/Paste Values in Filtered Data

Today I will show you how Copy/Paste Values in Filtered Data

Sub PastValues()
Dim Rng As Range
Set Rng = Selection.SpecialCells(xlCellTypeVisible)
For x = 1 To Rng.Areas.Count
Rng.Areas(x) = (Rng.Areas(x).Value)
Next
End Sub

[Ryan-zzhh]

This works great, thank you! It seems silly that Microsoft didn't make a "paste values in place" option to solve this super common issue, but your macro does that perfectly.

[danialoctav]

Yes, this really works great, thank you very much. I have tried your macro and it was success.