Deleting row - shift cells up issue

[falcios]

A lot of times when I am deleting rows I inadvertently shift cells up. I don't notice until a lot of entries were made. Changes have to be undone and I don't know if I got them all.

Would a macro help in this instance instead of manually deleting it?

Thanks in advance.

 

[VoG]

What criterion are you using to delete the rows?

 

[PCL]

Could you give more detail.
If you select a row and Edit > Delete the row is removed and shift cells up.
Would you like to only remove the value and keep an empty row.
If you detail the way when it's running correctly we can prepare a macro.

 

[falcios]

I press ALT E, then D for delete and R for row to delete the entire row. I go through it so quickly that by the time I hit enter it shifts the cells up instead of deleting the row.

I hope this makes sense.

 

[VoG]

Yes but why are you deleting them - blanks, 0, certain value ...?

 

[falcios]

Blank lines/cells or duplicate information

 

[VoG]

This is for column A

Sub test()
Dim LR As Long, i As Long
On Error Resume Next
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlShiftUp
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If WorksheetFunction.CountIf(Columns("A"), Range("A" & i)) > 1 Then Rows(i).Delete
Next i
On Error GoTo 0
End Sub