Macro which deletes rows

Okay thanks,

So i get

Sub DeleteRow()
'
' deleterows Macro
'

'
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Selection.Delete Shift:=xlUp
End Sub

Which works after selecting what i want. So i just need to change it by adding in the range i want to delete so it does it automatically?