Solved: How to delete active row and up to a defined row number

[GTO]

...i.e if i am in active cell A100. I would like the macro to delete from Row 100 to Row 3...

Hi BT,

I wasn't sure if that was inclusive of row three. If not, change to A4. Please note the sheet is not qualified, so works against the active sheet.
[vba]
Option Explicit

Sub exa()

If ActiveCell.Row >= 3 Then
Range(Range("A3"), Cells(ActiveCell.Row, 1)).EntireRow.Delete
End If
End Sub
[/vba]
Hope that helps,

Mark