Hello Leith Ross, thank you for the tips, which I will surely keep in mind for next time. Someone told me the solution to my coding problem:

Changing
Range("CW" & Lr)
To
Cells(Lr, Range("Last_Column").Column)