Første ledige række i vba

sidsteRække = activecell.specialcells(xllastcell).row

Det virkede ikke.. Når jeg prøvede så overskrev den bare den tekst der stod i forvejen.. men jeg tror selv jeg har fundet en løsning ved at læse lidt i bøgerne.
sub FindFirstFreeCell()
    Dim FindFreeCell As Integer
    Dim TLinenumber As String
    FindFreeCell = 1
    Do Until IsEmpty(Cells(FindFreeCell, 1))
    FindFreeCell = FindFreeCell + 1
    Loop
    TLinenumber = "A" & FindFreeCell
    Range(TLinenumber).Select
End Sub

Til en anden gang:

Du kan finde første fire celle i den aktive kolonne med:

ActiveCell.SpecialCells(xlLastCell).Offset(1, 0).Select