Code:

```
Sub Test()
Dim n As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim starttime As Date
Dim endtime As Date
starttime = Now()
For n = 1 To 55000
If Range("D" & n) = "Commercial Centre" Or Range("D" & n) = "Commercial Southend" Then Range("J" & n) = "Comm"
If Range("D" & n) = "Perel" Then Range("J" & n) = "DA"
If Range("W" & n) = "" And Range("A" & n) <> "Complete" Then Range("W" & n) = "Work in Progress"
If Range("W" & n) = "" And Range("A" & n) = "Complete" Then Range("W" & n) = "Closed"
If Range("O" & n) = "" And Range("A" & n) = "Complete" Then Range("O" & n).FormulaR1C1 = "=EOONTH(NOW(),0)"
If Left(Range("F" & n), 2) = "OM" Or Left(Range("G" & n), 2) = "PV" Then Range("D" & n) = "Perel"
If Left(Range("F" & n), 2) = "OM" Or Left(Range("G" & n), 2) = "PV" Then Range("J" & n) = "DA"
If Left(Range("G" & n), 2) = "OM" Or Left(Range("G" & n), 2) = "PV" Then Range("D" & n) = "Perel"
If Left(Range("G" & n), 2) = "OM" Or Left(Range("G" & n), 2) = "PV" Then Range("J" & n) = "DA"
If Range("F" & n) = "" And Range("G" & n) <> "" Then Range("F" & n) = Range("G" & n)
If Range("F" & n) = "" And Range("G" & n) = "" Then Range("F" & n) = "Not Known"
If Range("F" & n) = "Not known" And Range("G" & n) = "" Then Range("G" & n) = "Not Known"
Range("AM" & n).Select
ActiveCell.FormulaR1C1 = "=IF(LEN(RC[-33])>40,LEFT(RC[-33],40),RC[-33])"
ActiveCell.Select
Selection.Copy
Range("F" & n).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Cut
ActiveSheet.Paste
If Range("A" & n) <> "Complete" Then Range("X" & n) = ""
If Right(Range("S" & n), 1) = " " Then Range("R" & n) = Left(Range("S" & n), 8)
If Mid(Range("S" & n), 4, 1) = "n" Then Selection.Replace What:="n", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
If Range("S" & n) <> "" Then Range("S" & n) = "NOT KNWN"
If Left(Range("B" & n), 5) = "CARIL" Then
Range("AM" & n).FormulaR1C1 = "=IF(LEN(RC[-37])>12,IF(LEFT(RC[-37],5)=""CARIL"",LEFT(RC[-37],12),RC[-37]),RC[-37])"
Range("AM" & n).Select
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Cut
Range("B" & n).Select
ActiveSheet.Paste
ElseIf Left(Range("B" & n), 5) = "IMPRO" Then
Range("AM" & n).FormulaR1C1 = "=IF(LEN(RC[-37])>11,IF(LEFT(RC[-37],5)=""IMPRO"",LEFT(RC[-37],11),RC[-37]),RC[-37])"
Range("AM" & n).Select
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Cut
Range("B" & n).Select
ActiveSheet.Paste
End If
Next n
endtime = Now()
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "Done: This routine took " & Format(endtime - starttime, "hh:mm:ss") & " secs"
End Sub
```