von einer TAB in andere kopieren

ich möchte von einer Tab, das ist meine Aktive Tab,
wenn in Spalte J eine Zahl steht, die ganze Zeile in die Tab"Erledigt" kopieren und die Zeile aus der akt. Tab entfernen.

In der Tab"erledigt" stehen aber schon Daten die neuen Zeilen sollen ans Ende der Tab"erledigt" gestellt werden.

Den Ansatz hab ich schon, aber beim übertragen in die andere Tab krieg ich es nicht hin.

kann mit jemand helfen.

Schon mal vielen Dank Gruß Regina

sub Übertragen()
dim c as integer
ende = cells(i,1).end(xlup)
For i = ende to 2 Step -1
If cells(c,10)> 1 then
rows(i).

end if
next

end sub