Option Explicit

Sub SelectAnArea()

Dim Ws As Worksheet
Dim Lrow As Long
Set Ws = ThisWorkbook.ActiveSheet

'   Find bottom row number in columns G:R
    Lrow = Ws.Columns("G:R").Find(What:="*", LookIn:=xlValues, _
        lookat:=xlPart, SearchOrder:=xlByRows, searchdirection:=xlPrevious, _
        MatchCase:=False, searchformat:=False).Row

Ws.Range("G19:R" & Lrow).Select

End Sub