>>290
言い忘れたけど
A〜DとKが表としてつながってない想定ね

一つの表からなら
Range(Range("a1"), Range("d1").End(xlDown))
Range(Range("k1"), Range("k1").End(xlDown))
でそれぞれの範囲をとれる