vb script kopieren & aanvullen

[moensk]

Ik wil een tabel kopiëren van tabblad "KBC" naar tabblad "KBC_Klaar".
Doch hij moet dit aanvullen in Tabblad "KBC_Klaar" op de eerste lege cel in kolom A.
Het is de bedoeling dat tabblad "KBC_Klaar" groeit.
Tabblad "KBC" wordt nadien leeg gemaakt.

Heb volgend script samengesteld maar werkt niet

Sub Kopieren()

Sheets("KBC").ListObjects("KBC").Range.Copy
Sheets("KBC_KLaar").Range("A3" & Rows.Count).End(xlUp).Offset(1).Select

Sheets("KBC").ListObjects("KBC").Range.ClearContents

End Sub

extra vraag :
wat dien ik toe te voegen zodat hij de koptekst van de tabel in Tabblad "KBC" niet meeneemt ?

 

[edmoor]

wat dien ik toe te voegen?

Een voorbeeld document.

 

[snb]

Waarom mag werkblad "KBC" niet groeien ?

 

[moensk]

klein voorbeldje gemaakt

 

[moensk]

KBC mag niet groeien
1. via een power query wordt deze gevuld en vul ik rubrieken handmatig in en dan wil ik exporteren naar KBC_klaar

2. bedoeling is om bij tabblad "KBC_klaar" ook ander delen van de bank aan toe te voegen

 

[AD1957]

verander

Sheets("KBC").ListObjects("KBC").Range.Copy

in

Sheets("KBC").ListObjects("KBC").DataBodyRange.Copy

 

[sylvester-ponte]

With Sheets("KBC").ListObjects("Tabel1").DataBodyRange
  .Copy Sheets("KBC_KLaar").Range("A" & Rows.Count).End(xlUp).Offset(1)
  .Delete
End With

 

[moensk]

allen
weeral bedankt voor jullie snelle hulp