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

Hi, marreco,

maybe like this:

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")
        If .Cells(25, "A").Value = "" Then
          LastRow = .Range("A25").End(xlUp).Row
          .Cells(1 + LastRow, "A").Select
        Else
          MsgBox "The range (A10:A25) has been exceeded"
        End If
    End With
End Sub

Ciao,
Holger

Hi Ciao
works perfectly, it was wonderful, thank you!!