Hi Holger,

I meant I could not run the code you post it;

Sub DeleteValues()
Dim wsList As Worksheet
Dim wsData As Worksheet
Dim rngFound As Range
Dim lngCounter As Long

Set wsList = Sheets("Sorted Like That")
Set wsData = Sheets("View for Sheet-1")

For lngCounter = 1 To 5
  Set rngFound = wsData.UsedRange.Find(what:=wsList.Cells(lngCounter, "A").Value)
  If Not rngFound Is Nothing Then
    rngFound.ClearContents
  End If
Next lngCounter

Set wsData = Nothing
Set wsList = Nothing
End Sub

I have no experience and knowledge about any coding language. The example file is a small version of my project but I can not progress. And that's the situation.

Thanks for your interest.