Instead of my original code change the count increment from 1 to 4
from
RowCount = 1
do while cells(RowCount,"A").value < ""
if cells(RowCount,"A").value = _
cells(RowCount + 1,"A").value then

Rows(RowCount).delete
else
RowCount = RowCount + 1
end if
loop

to:
RowCount = 1
match = False
do while cells(RowCount,"A").value < ""
if cells(RowCount,"A").value = _
cells(RowCount + 1,"A").value then

Rows(RowCount).delete
MAtch = true
else
if Match = true then
RowCount = RowCount + 1
Mtch = False
else
RowCount = RowCount + 4
end if
loop



" wrote:

How would I do it for the case that I have to look at every 4th row,
not every row.