Function AccessionRangeEnd() As Long

    Dim x As Long

    With Sheets("Akcesje")
        x = .Range("F" & .Rows.Count).End(xlUp).row
    End With

    Debug.Print x

    AccessionRangeEnd = x
End Function