Normalise And Delete All The Duplicates

I am writing a spreadsheet to do the following. I have clients that submit lists of words (3 columns of data) that need to be normalised (ie - certain punctuation removing, casing to lower etc) and then all duplicates to be removed. It then pastes everything into a new sheet. Now, it all works perfectly but, runs a little too slow.

Sub NormaliseDedupe()
Application.Calculation = xlCalculationManual
Application. ScreenUpdating = False
Dim my_advertiser
Set my_advertiser = Range("G1")
Dim my_client
Set my_client = Range("J1")
Sheets("Normalised Keywords").Select
If my_advertiser = "" Or my_client = "" Then
MsgBox "Enter the Advertiser & Client at the top of the sheet."
Exit Sub
End If
Dim my_date As String
my_date = Trim(VBA.Format(Now(), "DD.MM.YY"))........................