Berduş hocam yazmış olduğunuz makroyu asıl dosyama uygulamaya çalıştığımda

For x = 2 To sonstr

Range("c" & x) = plainText(Range("c" & x))

Next x

burada hata alıyorum