VBA Delete Visible Cells

VBA to delete the visible cells on the worksheet but will leave the top row header. Usually used after you have applied a filter and need to remove only the visible cells but not the hidden filtered rows.

ActiveSheet.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=x1Up

VBA to delete the visible cells on the worksheet.

Selection.Delete Shift:=x1Up

[efb_likebox fanpage_url="https://www.facebook.com/vbamarket/" box_width="840" box_height=340"" responsive="1" show_faces="1" show_stream="1" hide_cover="1" small_header="0" hide_cta="0" locale="en_US"]