Macro which deletes rows

Hi, kjshep,

refer to the range and add EntireRow as otherwise only the cells would get deleted:

Sub DeleteRow()
'
' deleterows Macro
'

'
    Range("A2:A12").EntireRow.Delete Shift:=xlUp
End Sub

Ciao,
Holger