VBA Row knippen en verplaatsen van tabel naar tabel

[GerjanHM]

Hallo,

Ik loop vast met mijn macro en zou graag wat hulp willen.
Simpel gezegd is mijn doel om regel uit tabel1 te verwijderen en deze te plaatsen in tabel2 op een andere sheet. Men selecteer bijvoorbeeld een bepaalde cel waarna door middel van een macro de gehele rij wordt verplaatst.

Doel van de macro
1. Selecteer de gehele regel van de geactiveerde cel;
2. Knip de geselecteerde regel;
3. Activeer tab 2, zoek de eerste lege regel in de tabel;
3. Plak de geknipte regel in de eerst volgende lege regel.

Mijn macro selecteer nu niet de gehele rij (alleen de cel) en plaatst die nu niet in de tabel2 maar ergens anders.

Sub verplaatsen()

ActiveCell.Offset(, 1 - ActiveCell.Column).Select
Selection.Cut
Sheets("Blad2").Select

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Blad2")

'1e lege regel
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

ws.Cells(iRow, 3).Paste

End Sub

Zie ook de bijlage
Alle oplossingen zijn welkom. Alvast bedankt! :thumb:

Bekijk bijlage Voorbeeld Probleem.xlsmBekijk bijlage Voorbeeld Probleem.xlsm

 

[Leotaxi]

bij deze is 1 cel selecteren in bewuste rij voldoende


mvg
Leo

 

[GerjanHM]

Best wel andere aanpak, maar hij werkt goed :thumb:

Waar staan "c" en "aa" voor in de vba?
Ik ken het gebruik hiervan zo niet.

Bedankt voor de oplossing.

 

[Leotaxi]

In het voorbeeld is "c" de eerste kolom en "aa" de laatste.

mvg
Leo