Try:

LR = Range("C"&Rows.Count).End(xlUp).Row

Regards