First you would change:
ws1.Columns("C:C").Copy Destination:=Range("L1")
to this:
ws1.Columns("F:F").Copy Destination:=Range("L1")

And change:
For Each c In Range("J2:J" & r)
to this:
For Each c In Range("J26:J" & r)

Assuming your data starts in cell F26.