My bad, I didn't swap the params:
LR = Cells(Rows.Count, 1).End(xlToDown).Row