Удаление полных строк, когда выделены только ячейки

Question

Я выбрал, скажем, прямоугольник из 4 ячеек.

Как удалить полные строки этого ящика из выбранных ячеек?

Answer 1

Достаточно использовать селектор по умолчанию.

Selection.EntireRow.Delete

Answer 2

Измените диапазон и попробуйте:

Option Explicit

Sub Test()

    Dim i As Long
    Dim rng As Range

    With ThisWorkbook.Worksheets("Sheet1")

        Set rng = .Range("A10:D20")

        For i = rng.Row + rng.Rows.Count - 1 To rng.Row Step -1
           Rows(i).EntireRow.Delete
        Next

    End With

End Sub