First blank row

[AlexanderBB]

I have this but it isn't working

Function FirstBlankRow(Sheet)
    With Worksheets(Sheet)
        FirstBlankRow = .Cells.SpecialCells(xlCellTypeLastCell).offset(1, 0).Row
    End With
End Function

It returns a 3 when the first blank row is 2. It need not look past Column "A" either, so first blank "A" would do.

 

[Michael M]

Try using

FirstBlankRow = .Range("A:A").SpecialCells(xlCellTypeLastCell).Offset(1, 0).Row

 

[Michael M]

Easier

FirstBlankRow =.Cells(Rows.Count, "A").End(xlUp).Row + 1

 

[AlexanderBB]

Thank you Michael that's working spot-on.