Удаление всех ячеек и столбцов после контрольного значения.

[RIPASSW]

Подскажите пожалуйста как реализовать макрос.
Нужно оставить только текст до контрольного слова или значения.

[SAS888]

Если Вы имеете ввиду удаление строк ниже ячейки, содержащей контрольное значение и столбцов правее этой ячейки, то можно так:

Sub qq()
    Dim x As Range, s As String: Application.ScreenUpdating = False
    s = "Контрольное_значение"
    Set x = Cells.Find(s, , , xlWhole)
    If Not x Is Nothing Then
        Rows(x.Row + 1 & ":" & Rows.Count).Delete
        Range(Cells(1, x.Column + 1), Cells(1, Columns.Count)).EntireColumn.Delete
    End If
End Sub

[RIPASSW]

Всё верно. Благодарю Вас!!!