Funktion debug!

Hejsa!

Jeg har følgende, som jeg ikke rigtig kan debugge synes jeg! Aner ikke hvad fejlen er!
Nogle der kan hjælpe?

Public Function AntalTomme(celltop As String, spaceallowed As Integer)

Dim col As Range
Dim col2 As Range
Dim col3 As Range
Dim tael As Integer
Dim N As Integer
Dim cl As Range
Dim rngCheck As Range
Dim rngOut As Range

Set col = Range("cell_Top").Offset(1, 0)
Set col2 = col.Offset(10000, 0)
Set rngCheck = Range(col, col2)

'rngCheck.Select


N = 0


For Each cl In rngCheck
N = N + 1
tael = 0

If IsEmpty(cl.Value) Then
tael = tael + 1
End If

If tael - 1 = spaceallowed Then

rngOut = Range(col, Range("celltop").Offset(N, 0)).Select
ActiveCell.Paste
Exit For
End If

Next

End Function