対象ファイルのデータが入っているセル範囲の取得したいです。

こんな感じでしょうか。

Sub 最後のセルを選択()

    Set s = Workbooks("選択対象ブック").Worksheets("選択対象シート")

    ' 対象の列の範囲
    col_min = 2   ' B列
    col_max = s.Cells.SpecialCells(xlLastCell).Column

    Dim last_cell
    Set last_cell = Nothing
    For r = col_min To col_max
        Set c = s.Cells(Rows.Count, r).End(xlUp)
        If last_cell Is Nothing Then
            Set last_cell = c
        ElseIf last_cell.Row <= c.Row Then
            Set last_cell = c
        End If
    Next

    ' データが入ってる最後のセルを選択
    last_cell.Select

    ' 行と列を使うなら...
'   maxrow = last_cell.Row
'   maxcol = last_cell.Column

End Sub

こういう場合には、「メロン」（4行, B列）を選択するようにしてます。

空の「備考」（4行, C列）のセルを指したいのであれば、列の指定に col_max (.Cells.SpecialCells(xlLastCell).Column) を使ってください。

    ' データが入ってる最後のセルを選択
'   last_cell.Select
    s.Cells(last_cell.Row, col_max).Select