Udelukkelse af dataindivider med bestemte værdier

Nedenstående makro sletter hele rækken hvis en af cellerne i række 4 og nedefter indeholder en af værdierne i række 1.
Kan let rettes til så den passer til områderne i dit regneark

Sub DeleteRows()
Dim x As Long
Dim LastRow As Long
Dim LastColumn As Long
Dim y As Long
LastRow = Cells(65536, 1).End(xlUp).Row
LastColumn = Cells(4, Columns.Count).End(xlToLeft).Column
For x = LastRow To 4 Step -1
For y = 1 To LastColumn
If Application.CountIf(Range("1:1"), Cells(x, y)) Then
Cells(x, y).EntireRow.Delete
End If
Next
Next
End Sub

Tusind tak fordi du gav dig tid til at svare.

Meen...
Jeg burde jo nok have forudset det, men jeg kommer MEGET til kort, når jeg skal forstå og omsætte dit svar.

Jeg er som sagt ikke rutineret Excel bruger, og det skal forstås som at jeg normalt kun bruger pivot-tabeller, på et meget basalt niveau.

Og jeg aner intet om at programmere.

Så jeg må indrømme, at jeg er helt blank, når det kommer til den simple tilretning.

Kan du mon give mig et hint i forhold til hvor der er jeg retter til?

Og jeg bliver helt flov nu.. Men hver er det jeg sætter makroen ind? Markerer jeg hele arket og sætter den ind under funktionen?

Kopier makroen, højreklik på fanebladdet, vælg Vis Koder og indsæt makroen der. Hvis du skal køre makroen flere gange er det lettest at indsætte en knap (i linie 1 til 3 - ellers kan den forsvinde, når linier slettes) og linke den til makroen. Hvis du kun skal køre den en gang kan du nøjes med at gå ind under Vis, Makroer, Vis makroer og så køre den derfra.

Alternativt må du gerne sende filen til mig (kober_soerensen(snabela)hotmail.com)