Hi Dean
Try this
Lr1 = .Range("C" & Rows.Count).End(xlUp).Row