Can anyone help on this? I don't know what to look for to fix.
Dim rng As Range, Dn As Range, Sp As Variant, n As Long, c As Long
Set rng = Range(Range("Z1"), Range("Z" & Rows.Count).End(xlUp))
Application.ScreenUpdating = False