Копирование ячеек из последней строки в следующую строку

Question

Я пытаюсь скопировать столбцы D и E из последней строки в следующую. В настоящее время я получаю сообщение об ошибке компиляции: несоответствие типов. Я боролся с этим весь день разными способами. Любая помощь будет принята с благодарностью.

Sub PTB()

Dim LastRow As Long
With ActiveSheet
    LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
End With



Dim lastCellCoords As String: lastCellCoords = "D" & LastRow & ":E" & LastRow

Dim firstEmptyRow As Integer: firstEmptyRow = LastRow + 1
Dim firstEmptyCoords As String: firstEmptyCoords = "D" & firstEmptyRow & ":E" & firstEmptyRow

If Not LastRow Is Nothing Then
    ' Now Copy the range:
    Worksheets("Survey").Range(lastCellCoords).Copy
    ' And paste to first empty row
    Worksheets("Survey").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
Else
    MsgBox ("There is no data in specified range")
End If

End Sub