Скопируйте ячейку и вставьте в первую пустую строку в диапазоне ячеек

Question

Я хочу скопировать ячейку из одного листа и вставить значение в первую пустую ячейку в диапазоне ячеек на другом листе.

Я нашел код, который почти работает, но он вставляет форматирование и формулу.

Sub dural()
    Dim r1 As Range, r2 As Range
    Set r1 = Sheets("GHIN").Range("D151")
    Set r2 = Sheets("Monthly").Range("I56").End(xlUp).Offset(1, 0)
    r1.Copy r2
End Sub

Это работает, за исключением того, что я хочу вставить только специальные значения.