Dim x As Range
Set x = Range("A13:A28").Find(Range("A1").Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Offset(0, 4).ClearContents
If Not x Is Nothing Then x.Offset(0, [COLOR="Red"]4[/COLOR]).ClearContents
Dim x As Range
Set x = Range("A13:A28").Find(Range("A1").Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then Range(x.Offset(0, 1), x.Offset(0, 10)).ClearContents
If Not x Is Nothing Then Range(x.Offset(0, 0), x.Offset(0, 10)).ClearContents
If Not x Is Nothing Then Range(x, x.Offset(0, 10)).ClearContents
If Not x Is Nothing Then Range(x, x.Offset(0, 10)).GegeestContenteMerci