Poslednú použitú bunku môžeš vybrať nasledovne:
UsedRange.Cells(UsedRange.Rows.Count, UsedRange.Columns.Count).Select
Ak ti nebude tento spôsob stačiť, tak budeš musieť použiť funkciu Find, napríklad podľa návodu na Finding the Last Cell in a Range:If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.
LastRow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Search for any entry, by searching backwards by Columns.
LastColumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
Cells(LastRow, LastColumn).Select
End If