Eerste vrije rij selecteren

[stefano]

Ik wil van tabblad 1 een rij naar de eerste vrije rij van een ander tabblad 'historiek' kopieren. Ik probeer met onderstaande code de rij te plakken maar het gaat fout. Kaniemand me helpen omde eersete vrije rij te selecteren?

dank,

Stefano

Sub historiek()
'
' historiek Macro
'

'
    Rows("74:74").Select
    Selection.Copy
    Sheets("historiek").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

met deze code selecteer ik de laatste rij maar niet de rij eronder die geen data bevat

 

[HSV]

Een hele rij zal misschien wat overdreven zijn.

[COLOR=#3E3E3E]Sheets("historiek")[/COLOR].cells(rows.count,1).end(xlup).offset(1).resize(, columns.count) =rows(activecell.row).value