napriklad v editoru vlozit do modulu funkci:
Function LastRow(Sl As String)
Dim PosBunka As Range
' nastaveni na posledni radek listu ve sloupci
Set PosBunka = Range(Sl & ":" & Sl).Cells(Range(Sl & ":" & Sl).Cells.Count)
' presun na posledni neprazny radek listu
If IsEmpty(PosBunka) Then Set PosBunka = PosBunka.End(xlUp)
If IsEmpty(PosBunka) Then ' bunka na 1. radku je take prazdna
LastRow = vbNullString ' nebo "Bunka na 1. radku je prazdna"
Else
LastRow = PosBunka.Value
End If
End Function
a do bunky zadat vlastni funkci: =LastRow("b")
nebo funkci volat v udalostni procedure Worksheet_SelectionChange a nalezenou hodnotu ulozit do pozadovane bunky