VBA Mid function: One sources to multiple cells

Originally Posted by AB33

For Each r In Range("J2:J3")

runs from J2 to J3.

Tried (K4:K10) and tested but doesn't work. It does not stop at K10. Attached is the amended copy. Could be I miss something.

For my case, there is no need for loop. Just need to split at one row when I paste data in the column K.