Private SelectionRn As Range

' При изменении на листе
Private Sub Worksheet_Change(ByVal Target As Range)
    ' Если изменена вся строка и сохранено предыдущее выделение всей строки - было автозаполнение
    If Target.EntireRow.Address = Target.Address And Not SelectionRn Is Nothing Then
        ' Временно отключим события, чтобы не провоцировать лишние Worksheet_SelectionChange
        Application.EnableEvents = False
        ' Для каждой измененной строки
        For i = 1 To Target.Rows.Count
            ' По умолчанию считаем, что строки одинаковые
            sameValues = True
            ' Игнорируем пустые строки, работаем с заполненными
            If WorksheetFunction.CountA(Intersect([B:O], Target.Rows(i))) > 0 Then
                ' Сравниваем каждую ячейку на совпадение с образцом
                For Each el In Intersect([B:O], Target.Rows(i).Cells)
                    ' Даты и числа при автозаполнении могут измениться, поэтому их не сравниваем
                    If IsNumeric(el) = False And IsDate(el) = False Then
                        ' Если хотя бы одна сравниваемая ячейка отличается, значит считаем строки разными и перейдем к следующей строчке
                        If SelectionRn.Columns(el.Column).Rows(1).Value <> el.Value Then
                            sameValues = False
                            Exit For
                        End If
                    End If
                Next el
                ' Если строки одинаковы, почистим автозаполненное
                If sameValues = True Then
                    Intersect([B:O], Target.Rows(i)).ClearContents
                End If
            End If
        Next i
        Application.EnableEvents = True
    End If
End Sub

' При выделении ячеек на листе
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.EntireRow.Address = Target.Address Then
        ' Если выделена вся строчка - подготовимся.
        
        Set SelectionRn = Target
    ' Если выделена не вся строка, значит в случае последующего изменения было использовано не протягивание всего стобца
    Else: Set SelectionRn = Nothing
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'В случае ошибки обязательно возобновляем реагирование на события листа
On Error GoTo end1:
    ' Если изменена вся строка и сохранено предыдущее выделение всей строки - было автозаполнение

        Next i
    End If
end1:
    Application.EnableEvents = True
End Sub