Concatenar

Hola. Os cuento mi problema. Tengo una tarifa en la que la referencia esta
dividida en tres columnas y que ocupa unas 11.000 filas. Para realizar las
busquedas lo que hago es concatenar las tres columnas en una nueva pero lo
hago manualmante y lo debo hacer habitualmente. He encontrado este macro por
la red, y aunque no se na de codigo, lo he apañao para automatizar el
proceso pero funciona bien con pocas filas pero cuando le digo que me lo
haga en las 11.000 filas de la hoja se me cualga. ¿podeis ayudarme?

Sub concatenar()
u = Cells(Rows.Count, 3).End(xlUp).Row
For i = 2 To u
Cells(i, 1) = Cells(i, 2) & "" & Cells(i, 3) & "" & Cells(i, 4)
Next
MsgBox "Datos concatenados por correctamente"
End Sub

Saludos y gracias.