I am using the following:
-----------------------------------------
Sheets("MESSER").Visible = True
Sheets("MESSER").Select
ActiveSheet.Unprotect

Range("ú_æ").Select
ActiveCell.Offset(1, 0).Range("A1").Select

Selection.End(xlDown).Select


Dim Message, Title, Default, MyValue

Message = "ä÷ìã îñôø ùåøä Ã*çøåðä" ' Set prompt.
Title = "" ' Set title.
Default = "F14:K???" ' Set default.

' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)

Range(MyValue).Select

Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("ú_æ").Select
ActiveCell.Offset(1, 0).Range("A1").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Sheets("MESSER").Visible = False

Sheets("START").Select
--------------------------------------------
Can the K??? last line number in column K be automatically detected by macro
without using the DIM statement and user interface....???
thanks
Helmut