Очистка строки - VBA

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
                If Not Intersect(Target, [Y20:Y57]) Is Nothing Then
                    Application.EnableEvents = False
                        If Len(Target) Then
                            Dim mesg
                            mesg = MsgBox("Вы действительно хотите удалить расчеты?", vbYesNo + vbQuestion + vbDefaultButton2, "Очистка")
                                Select Case mesg
                                   Case vbYes
                                        Selection.EntireRow.ClearContents
                                   Case vbNo
                                End Select
                        End If
                    Application.EnableEvents = True
                End If
End Sub

Этот код очистит все данные во всех ячейках строки в которой сработало событие Selection, диапазон запуска кода (Y20:Y57).Как объяснить vba что мне нужно очистить данный не всей строки, а только ячейки с 3 по 25? Спасибо

Решение задачи: «Очистка строки»

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

                            Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, [Y20:Y57]) Is Nothing Then Exit Sub
    If Len(CStr(Target)) = 0 Then Exit Sub
    If MsgBox("Вы действительно хотите удалить расчеты?", _
    vbYesNo + vbQuestion + vbDefaultButton2, "Очистка") = vbNo Then Exit Sub
                    
    Application.EnableEvents = True
    [C:Y].Rows(Target.Row).ClearContents
    Application.EnableEvents = True
End Sub
                        