.Clearcontents shiftxlUp

Question

Я пытаюсь очистить содержимое активной строки и сдвигаю нижние строки вверх.Я хочу очистить вместо удаления, потому что в моих ячейках есть проверка данных и формулы.Я продолжаю получать сообщение об ошибке при использовании следующего VBA, я понимаю, что shift: = xlUp будет работать только с командой .delete.Есть ли способ заставить эту работу работать с .clearcontents?

Sub shiftmeup()
    Dim ws As Worksheet
    Dim wb As Workbook
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Contacts") '/// The underhood of my contacts
    With ws.Range("D11:BL392")
        For i = .Rows.Count To 1 Step -1
            If IsEmpty(.Cells(i, 1)) Then .Rows(i).ClearContents shift:=xlUp
        Next
    End With
End Sub

Answer 1

Вы не можете "сдвинуть нижние строки вверх" без удаления.ClearContents буквально просто делает это, очищает ячейку .value и затем не изменяет xlsx после этого.