It might be best to count the rows, then the code would not take so long.

n = Cells(Rows.Count, "L").End(xlUp).Row
Range("L2:L" & n).Offset(, 1) = Application.Evaluate("index(UPPER(" & Range("L2:L" & n).Offset(, 1).Address & "),)")