Eerst volgende lege rij

[Killerclown]

Ik zit met een probleem waar ik de oplossing niet voor zie.

Op mijn Excelsheet zit een knop om iets te printen. Wanneer ik die dan indruk, print hij de sheet maar moet hij ook bepaalde gegevens overplaatsen naar een overzicht. Ik heb het volgende al ineen gestoken maar nu zou ik telkens ik de knop indruk, de gegevens moeten overplaatsen naar de eerst volgende lege rij.
Iemand een idee hoe ik dat moet doen?

Dim naam
    
    Range("F6").Copy Destination:=Worksheets("Overzicht Bonnen").Range("B3")      'copy referentienummer
    Worksheets("Overzicht Bonnen").Range("C3").Value = Now                              ' voegt datum en uur toe 
    naam = ActiveSheet.Name
    Worksheets("Overzicht Bonnen").Range("A3").Value = naam                            ' voegt de naam van de sheet toe vanwaar geprint is

Alvast heel veel dank.

 

[HSV]

Clown,

Range("F6").Copy Destination:=Worksheets("Overzicht Bonnen").cells(rows.count,2).end(xlup).offset(1)      'copy referentienummer

Zonder copy, maar alleen de waarden.

Worksheets("Overzicht Bonnen").cells(rows.count,2).end(xlup).offset(1) = sheets(jouw bladnaam).range("f6")

 

[Killerclown]

SUPER!!!!

Het werkt.
Alvast heel erg bedankt HSV.