Try this instead.

LR = Cells(Rows.Count, 1).End(xlUp).Row