Excel VBA: Find First Free Row – Function ffR()

When I want to add a new record to a table, I use the function CurrentRegion.Rows.Count and add 1 to the result to find the first empty row.
CurrentRegion returns the contiguous range from a spesific cell. The contiguous range is the range from A1 in the case below – with no empty rows.

Selecting CurrentRegion from the keyboard

Pressing CTRL+A in cell A1 will select the CurrentRegion

Find First Free Row with CurrentRegion in Excel VBA

'Return first free row in sheet
Function ffR(sh As Worksheet) As Long
    ffR = sh.Range("A1").CurrentRegion.Rows.Count + 1
End Function

ffR(sh) returns the first free row from the specified sheet.

Possible flaws – if you have an empty header in row 1, you might mess up your table…