Delete cells in column every
 

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

Delete cells in column every
 

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 .com,
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......