Как скопировать формулу, скрытую в строке в нижней части таблицы, в активную ячейку, расположенную в том же столбце, с помощью кода, назначенного кнопке?

Question

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

Sub PasteFormula() 
' 
' PasteFormula Macro 
' Pastes a formula from the table's bottom row, that is hidden, into the active cell of the same column. 
' 
'
ActiveCell.PasteSpecial xlPasteAllExceptBorders 
ActiveSheet.Paste 
End Sub

Answer 1

Может быть что-то вроде этого, используя встроенные свойства ListObject.При необходимости измените имена листов и таблиц.

Sub PasteMyFormula()
    Dim myTbl As ListObject
    Set myTbl = ThisWorkbook.Sheets("Sheet1").ListObjects("Table1")

    With myTbl
        If Not Intersect(ActiveCell, .DataBodyRange) Is Nothing Then
            .DataBodyRange(.ListRows.Count, ActiveCell.Column).Copy
            ActiveCell.PasteSpecial xlPasteAllExceptBorders
            Application.CutCopyMode = False
        End If
    End With        
End Sub