[Excel 2003] lege cell zoeken en vullen

[Sp00n]

Probleem: lege cell opzoeken in een row en opvullen met waarde. Ik dacht aan het volgende:

code:

Dim LastCell As Range
    With ActiveSheet
    Set LastCell = .Cells(.Rows.Count, "D").End(xlUp)
    If IsEmpty(LastCell) Then
      Else
      Set LastCell = LastCell.Offset(1, 0)
    End If
    End With
    Sheets("Invoervergelijken").Select
    If ActiveSheet.Range("F3") = 0 Then
    Sheets("Aanbevelingen").Select
    ActiveSheet.Range("LastCell.Row").Select
    ActiveCell.FormulaR1C1 = "Geblaat"

Maar ActiveSheet.Range("LastCell.Row").Select pakt ie niet. Nou wil ik ook nog dat ie, nadat ie dat gedaan heeft, de volgende lege cell opzoekt en daar weer een andere waarde in kan doen, doormiddel van een If.

Hoe los ik dit op ?

Ik heb de search geprobeerd maar kon niks vinden dat me kon helpen...

[Gulf_5]

voorbeeld:

code:

Rows("1:6").Select

    Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, Searchdirection:=xlNext, _
    MatchCase:=False).Activate

Deze functie zoekt in de eerste kolom (A...) van de geselecteerde rijen naar de waarde "" (is niks dus ) en activeert die cel als ie m gevonden heeft.
Daarna kun je activecell.value = en iffen zoveel je wilt !
Succes