Minty, for some reason my condition is never met for line 4 and I can't seem to figure out why. Did I mess up the syntax on it?
With ws.Range("C:C")
LastR = .Cells.Find("*", ws.Cells(1, 3), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
For i = LastR To 2...