Hi

How do I delete cells left every second cell in my column B starting
from 4 cells down in the column?

Been looking for hours to do this......

Any help is appreciated,

Andrea

One way:

Dim rDelete As Range
Dim i As Long
Set rDelete = Cells(4, 2)
For i = 6 To Cells(Rows.Count, 2).End(xlUp).Row Step 2
Set rDelete = Union(rDelete, Cells(i, 2))
Next i
rDelete.Delete Shift:=xlToLeft


In article <(E-Mail Removed)>,
(E-Mail Removed) wrote:

> Hi
>
> How do I delete cells left every second cell in my column B starting
> from 4 cells down in the column?
>
> Been looking for hours to do this......