Excel VBA Runtime error '5' Недопустимый вызов процедуры или аргумент

Question

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

Все.

Private Sub Data()

Dim Answer As String
Dim Box As String

'Question to confirm

    Box = "Have you pasted the data into the tab?"

'Display MsgBox

    Answer = MsgBox(Box, vbQuestion + vbYesNo, "Data")

'Code for No press

    If Answer = vbNo Then
    MsgBox "Please paste the data in the tab before running this code"

    Else

    If Answer = vbYes Then
    MsgBox "Running code."

    Sheets("Data").Activate
    Range("D2:AO2").Copy

    Dim LR4 As Long, cell4 As Range, rng4 As Range
    LR4 = Range("D" & Rows.Count).End(xlUp).Row
    For Each cell4 In Range("D" & LR4)
        If cell4.Value <> "" Then
                Set rng4 = cell4
            Else
                Set rng4 = Union(rng4, cell4)
            End If

                Next cell4
    rng4.Offset(1, 0).PasteSpecial

    End If
    End If

End Sub

Код выполняется правильно, если он выполняется, и ячейка не является частью таблицы. Если ячейка является частью таблицы, появляется ошибка времени выполнения.