Как сделать так, чтобы макрос удалял данные из строки, начиная со столбца "p" и заканчивая столбцом "y"? - VBA

Формулировка задачи:

Здравствуйте, как сделать так, чтобы макрос удалял данные из строки, начиная со столбца "p" и, заканчивая столбцом "y" включительно? Очищение прерывается на первой пустой ячейке в строке.

Sub Ochistit()
    
    Dim p As Range
    Set p = [p6:p55].Find([P5], [p55], xlValues, xlWhole)
    Do Until p Is Nothing
    Range(p, p.End(xlToRight)).ClearContents
    Set p = [p6:p55].FindNext(p)
    Loop
 
End Sub

Решение задачи: «Как сделать так, чтобы макрос удалял данные из строки, начиная со столбца "p" и заканчивая столбцом "y"?»

textual
                            Листинг программы 
                        

                            Sub Ochistit2()
 
Dim p As Range
Set p = [p6:p55].Find([P5], [p55], xlValues, xlWhole)
Do Until p Is Nothing
'  Range(p, p.End(xlToRight)).ClearContents
  Range(p, p.Offset(, 9)).ClearContents
  Set p = [p6:p55].FindNext(p)
Loop
 
End Sub
                        