Tengo el siguiente código y hace exactamente lo que necesito que haga. Sin embargo, el bucle tarda demasiado en ejecutarse (3 minutos o más). Soy nuevo en VBA, así que no estoy exactamente seguro de que 1) cuál es la mejor alternativa 2) cómo usar la sintaxis adecuada para esa alternativa y hacer que mi código funcione sin fallas. ¡Gracias!

Dim i As Integer
For i = 2 To 13000

If Sheets("Sheet1").Range(Cells(i, 3), Cells(i, 3)) = "Police" 
    And Sheets("Sheet1").Range(Cells(i, 14), Cells(i, 14)) = "Bi-wkly Uniform Pay" Then _
Sheets("Sheet1").Range(Cells(i, 3), Cells(i, 3)) = "Police - Uniform"

Next i