Looking to speed up modified countif using VBA

[nickytraps]

Good Afternoon,

I am looking to speed up a portion of a macro where I am basically looking to create a unique ID for duplicate values. The following formula is currently being used on a dynamic range of ~21k rows and then converted to value. Any help would be greatly appreciated. Thank you!

Sub ColumnW_Test()

'Enter formula and fill down
Range("W4").Formula = "=V4&""-""&COUNTIF($V$4:V4,V4)"
Range("W4:W21364").FillDown

'Copy/paste values to end of data
Range("W4", "W" & Cells(Rows.Count, 3).End(xlUp).Row).Copy
Range("W4").PasteSpecial xlPasteValues
Application.CutCopyMode = False


Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.StatusBar = False

EndTime = Timer
MsgBox "This took " & EndTime - StartTime & " seconds to run"

End Sub