Clear Data Using Clear Contents

[zach9208]

I need help with this code. I just want the contents to be cleared until the last row. This code works perfectly when I have it set to delete, but not when I have it set to ClearContents.

Range(Range("A2"), ActiveCell.SpecialCells(xlLastCell)).Delete Shift:=xlUp

Sub ClearDetailData()Sheet1.Activate
Application.ScreenUpdating = False
Range(Range("A2"), ActiveCell.SpecialCells(xlLastCell)).ClearContents Shift:=xlUp
Application.ScreenUpdating = False

I need clear contents, because it is breaking formulas on cells referenced, since cells are being deleted.

 

[Rick Rothstein]

I need help with this code. I just want the contents to be cleared until the last row. This code works perfectly when I have it set to delete, but not when I have it set to ClearContents.

Range(Range("A2"), ActiveCell.SpecialCells(xlLastCell)).Delete Shift:=xlUp

Sub ClearDetailData()Sheet1.Activate
Application.ScreenUpdating = False
Range(Range("A2"), ActiveCell.SpecialCells(xlLastCell)).ClearContents [B][COLOR="#FF0000"]Shift:=xlUp[/COLOR][/B]
Application.ScreenUpdating = False

I need clear contents, because it is breaking formulas on cells referenced, since cells are being deleted.

Remove the red highlighted text... the Delete method can take that argument but ClearContents cannot (nothing moves when you clear contents).