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)