Select the last empty cell of the range specific

Hi.

Sub LastRowInOneRange()
'I need to select the last empty cell of the range (A10: A25), otherwise exit the sub.
    Dim LastRow As Long
    With Worksheets("Plan1")
        LastRow = .Range("A25").End(xlUp).Row
        .Offset(1 & LastRow).Select
    End With
    MsgBox "The range (A10: A25) has been exceeded"
    
End Sub