End(xldown) fejl?

Hej! Jeg har lavet en reference og vil således definerer en range indeholdende kolonnen nedenunder.
jeg skriver:

Private Sub visRaekker()
Sheets("I2 (2)").Activate
' Definerer range med træposition
Dim cell5, cell6, rngTree As Range
Set cell5 = Range("Tree_Pos").Offset(1, 0)
Set cell6 = cell5.End(xlDown)
Set rngTree = Range(cell5, cell6)
rngTree.Select
End Sub

Problemet er, at end(xldown) ikke lader til at virke. Der står massere af tal i den kolonne, men rangen rngTree indeholder kun ét felt.

Help please!