Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Parent.Range("K3")
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Rng) Is Nothing Then Exit Sub
If Target.Value <> "multibuy" Then
Range("K4").Resize(2).Clear
End If
End Sub