Hi Dominique

Try:

Sub Tester01()
Dim FirstBlank As Range

If IsEmpty(Range("A1")) Then
Set FirstBlank = Range("A1")
ElseIf IsEmpty(Range("A2")) Then
Set FirstBlank = Range("A2")
Else
Set FirstBlank = Range("A1").End(xlDown)(2)
End If

End Sub

---
Regards,
Norman



"Dominique Feteau" wrote in message
...
How do I write a line in a macro I'm trying to create.

What I want is for it to start in A1 and basically go to the next blank
cell going down in Column A?

How do i do that?

Niq