Как ограничить диапазон использованных ячеек?

    Dim currCell, last As Range
    Set currCell = ActiveSheet.Cells.Find(What:="Долгота", SearchFormat:=False)
    If currCell.Parent.Cells(ActiveSheet.Rows.Count, currCell.Column) <> "" Then _
            last = currCell.Parent.Cells(ActiveSheet.Rows.Count, currCell.Column)
    If currCell.Parent.Cells(ActiveSheet.Rows.Count, currCell.Column) = "" Then _
            last = currCell.Parent.Cells(ActiveSheet.Rows.Count, currCell.Column).End(xlUp)
    Set filled_range2 = Range(ActiveSheet.Cells(1, 1), last)

Option Explicit
 
Sub Макрос1()
    Dim c1
    With ActiveSheet
        'Находим последнее слово на листе с текстом долгота
        Set c1 = .UsedRange.Find("долгота", , xlFormulas, xlWhole, , xlPrevious)
        
        'выделяем этот диапазон
        .Range([a1], c1).Select
 
    End With
 
End Sub

Option Explicit
 
Sub Определитель_долготы()
    Dim r&, cl
    
    With ActiveSheet
    
        'Ищим паследнее слово на листе с текстом долгота
        Set cl = .UsedRange.Find("долгота", SearchDirection:=xlPrevious)
        
        'Находим последний Y в табл
         r = .UsedRange.Row + .UsedRange.Rows.Count - 1
 
        'именуем этот диапазон
        .Range([a1], .Cells(r, cl.Column)).Name = "borro"
        
        'и выделяем его чтобы borro его увидел
        .Range("borro").Select
        
    End With
 
End Sub