Selecionar a ultima célula de um intervalo específico

Sub UltimaCelulaIntervalo()

'Selecionar a ultima célula de um intervalo específico
    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 "O intervalo(A10:A25) foi excedido"
        End If
    End With
   
End Sub