hoe rijen verplaatsen naar andere sheet

[DeCor]

Hoe kan ik geselecteerde rijen van de "IN lijst" automatisch laten verplaatsen naar de "UIT lijst" met de knop "IN --> UIT"?
De rij zou in de "UIT lijst" steeds na de laatst ingevulde rij moeten geplaatst worden.

Alvast bedankt voor jullie hulp.

 

[DeCor]

Kan niemand me helpen?

Ik weet het echt niet meer. Dit is het laatste wat ik voor dit progje nog moet hebben. Weet iemand raad?

mvg,
DeCor

 

[DeCor]

Waarom werkt dit niet?

Ne lang peinzen dacht ik het te hebben, maar steeds opnieuw foutmelding.

(loopt steeds vast op "Range("A2").Select")


Kan iemand me helpen aub?

Zie bijlage,
mvg,
DeCor


In het geval er problemen met de bijlage zijn hier de code:

Private Sub CommandButton24_Click()

Selection.Cut
Sheets("UIT").Select
'hier gaan we de eerste cel selecteren.
Range("A2").Select
'zolang er nog iets in de cel staat moeten we het laatste woord pakken
While ActiveCell.Value <> ""
On Error GoTo volgende
volgende:
'ga naar de volgende cel
ActiveCell.Offset(1, 0).Select

Wend
ActiveSheet.Paste
Sheets("IN lijst").Select
Selection.Delete Shift:=xlUp
End Sub

 

[DeCor]

Zolag ik de macro gewoon laat lopen werkt alles prima, zet ik het onder een knop lukt het niet meer?
Komt dit doordat de code van de knop dan naar een andere sheet moet gaan?

mvg,
DeCor