Function FindLastNL(N)
For i = 53 To 1 Step -1
If Cells(2, i) = "NL" And Cells(N, i) <> "" Then
FindLastNL = i
Exit Function
End If
Next i
End Function
Function FindFirstFreeNL(N)
For i = 1 To 53
If Cells(2, i) = "NL" And Cells(N, i) = "" Then
FindFirstFreeNL = i
Exit Function
End If
Next i
End Function