''Enter your cell range below
Range("D2", Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
''Enter your cell range below
Range(Selection, Selection.End(xlDown)).Select
For Each xCell In Selection
xCell.Value = xCell.Value
Next xCell