Определение адреса ячейки для задания диапазона

Sub Addcolumn
 
With Range("D1")
 
        ' Заголовок столбца
        
        .Value = "Координаты ACAD"
        .Font.Bold = True
        .Font.Italic = True
        .Font.Size = 10
        
End With
   
         Range(D2:??????????).Borders.LineStyle = True

Sub границы()
Lastrow = Application.Max(Application.IfError(Application.Match(9E+307, Range("D:D"), 1), 0), Application.IfError(Application.Match("", Range("D:D"), -1), 0)) ' Определяем последнюю заполненную строку в столбце D, даже если есть скрытые или отфильрованные строки
' устанавливаем границы:
Range(Cells(2, 4), Cells(Lastrow, 7)).Borders.LineStyle = True  ' где 4 - номер столбца D, 7 - номер столбца G
End Sub

Sub Добавить_координаты()
 Application.ScreenUpdating = 0
 Application.Calculation = xlCalculationManual
 Application.EnableEvents = 0
 ActiveSheet.DisplayPageBreaks = 0
 Application.DisplayStatusBar = 0
 Application.DisplayAlerts = 0
 Application.ReferenceStyle = 0
 ActiveSheet.UsedRange
 
Lastrow = Application.Max(Application.IfError(Application.Match(9E+307, Range("A:A"), 1), 0), Application.IfError(Application.Match("", Range("A:A"), -1), 0))
Range(Cells(4, 1), Cells(Lastrow, 1)).Copy Destination:=Range(Cells(4, 4), Cells(Lastrow, 4))
Cells(4, 4).Value = "Координаты"
y = Range(Cells(5, 2), Cells(Lastrow, 3)).Value
For z = 1 To UBound(y)
y(z, 1) = y(z, 1) & " " & y(z, 2)
Next
[D5].Resize(z - 1) = y
 
 Application.ScreenUpdating = 1
 Application.Calculation = xlCalculationAutomatic
 Application.EnableEvents = 1
 Application.DisplayStatusBar = 1
 Application.DisplayAlerts = 1
End Sub

Sub tt()
    Dim a, i&: a = [a4].CurrentRegion.Value: a(1, 1) = "Źīīšäčķąņū"
    For i = 2 To UBound(a): a(i, 1) = a(i, 2) & " " & a(i, 3): Next
    With [D4].Resize(UBound(a)): .Value = a: .Borders.Weight = xlThin: End With
End Sub