Suchen nur in spalten J - IV

hab ein kleines Problem,

...
For x = 1 To 50
Cells.Find(What:="*", After:=[J1], LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Select
Range(ActiveCell, ActiveCell.Offset(1, 200)).Select
Selection.Cut
ActiveCell.EntireRow.Cells(1, 1).Offset(2, 0).Select
Selection.Insert Shift:=xlDown
Next x
...

dieses makro soll in den spalten J-IV nach nicht leeren zellen suchen. Wenn in den Spalten allerdings nichts zu finden ist sucht das ding auch in den spalen A-I.
wie kann ich dass ändern?

Noch was: kann man auch für "For x = 1 To 50" sagen dass das solange durchlaufen soll bis in den Spalten J-IV nichts mehr steht?

Danke schon mal
Andi