скопировать значение макропеременной в электронную таблицу

Question

Я хотел бы поместить значение переменной (LastRow в приведенном ниже коде), определенной в макросе, в электронную таблицу. В конечном итоге я хочу, чтобы это было количество, определенное в менеджере имен, для использования в других операциях, но если я могу вставить его в ячейку электронной таблицы, то я знаю, как добавить его в диспетчер имен.

Пробовал искать и вставлять различные операции, без радости.

Ценю ваши предложения.

Sub A_copy_pressure_arrays()
Dim oSWksht     As Excel.Worksheet
Dim oDWksht1     As Excel.Worksheet
Dim c As Range, v
Dim k As Range, j
Dim LastRow

Set oSWksht = ActiveWorkbook.Worksheets("data")
Set oDWksht1 = ActiveWorkbook.Worksheets("psia")

oSWksht.Columns(1).Copy Destination:=oDWksht1.Columns(1)
oSWksht.Columns(3).Copy Destination:=oDWksht1.Columns(2)

j = 3
For Each c In Application.Intersect(oSWksht.Rows(2), oSWksht.UsedRange)

  v = Trim(c.Value)
  If v Like "P.#" Or v Like "P.##" Then

    c.EntireColumn.Copy Destination:=oDWksht1.Cells(1, j)
    j = j + 1
  End If

Next c

LastRow = Range("A" & Rows.Count).End(xlUp).Row
Debug.Print "Last row " & LastRow 

End Sub