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.

ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=x1Up