Копирование значения ячейки в другую ячейку и автоматическое обновление указанных ниже ячеек для каждой записи.

Question

Может кто-нибудь посоветовать или помочь

У меня есть код, связанный с командной кнопкой. Код ниже:

Private Sub CommandButton3_Click ()

Application.ScreenUpdating = False
Dim xSheet As Worksheet
Set xSheet = ActiveSheet
    If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
        xSheet.Range("D84").Copy
        xSheet.Range("L78").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End If

Application.ScreenUpdating = True

End Sub

Ячейка "D84" постоянно изменяется при достижении оценки отчета. В диапазоне "L78: L95 у меня есть годы с 2018 по 2035 год.

Приведенный выше код, когда нажата командная кнопка, копирует значение от D84 до L78, я хочу добиться с этим кодом, что каждый раз, когда я выберите командную кнопку, чтобы скопировать значение D84 в следующий открытый диапазон ячеек в столбце L. Таким образом, начальный диапазон равен L78, а конечный диапазон - L95