VBA kopieren data naar andere sheet

[Danielle22]

Hallo allemaal,

Ik maak gebruik van deze macro:

Sub Knop1_Klikken()
Sheets("data").Select
Sheets("log").Cells(Rows.Count, 1).End(xlUp).Offset(1) = [A1]
End Sub

Ik wil de waarden uit het blad "data" kopieeren naar het blad "log". Maar de gekopieerde waarden moeten steeds onder elkaar komen in het blad "log". Als ik deze macro gebruik, wordt alleen cel A1 gekopieerd, Ik wil eigenlijk dat die heel kolom A kopieert.

Weet iemand hoe ik dit voor elkaar krijg?

Groetjes,

Danielle

 

[spaarie]

Zo?

Sheets("data").Columns(1).SpecialCells(2).Copy Sheets("log").Range("A" & Rows.Count).End(xlUp).Offset(1)

 

[Danielle22]

Top bedankt :thumb:

Groetjes,

Danielle