Offset selection based on selected cells not just activecell

**sabin348** · 11-28-2015, 11:40 AM

Guys,
I'm trying build a macro that will select the blank cells in a column and then using some sort of offset to select cells to the right of them. For example, if I select the blanks in column "B" cells b1,b5, and b8 may get highlighted. If those are selected then I want the macro to select cells b1-f1,b5-f5, and b8-f8. My next step in the macro will be to delete the selected cells and shift the cells up.

This is what I'm using so far, the problem is that it only selects based on the active cell and not the selected cells.
Columns("B:B").Select
Range("B6").Activate
Selection.SpecialCells(xlCellTypeBlanks).Select

Range(ActiveCell, Cells(ActiveCell.Row, ActiveCell.Column + 6)).Select

Thanks,

**mikerickson** · 11-28-2015, 12:20 PM

Something like

Please Login or Register  to view this content.

Although there is no need to Select the range, it can be deleted directly

Please Login or Register  to view this content.

Working with discontinuous ranges can be tricky. Some properties and methods (like .Cells and .Resize) work from the first cell in the range. But others (like .EntireRow) work on all the .Areas of a discontinuous range.