macro to delete last two rows

i wrote this macro and want to delete last two rows on active sheet this macro doesnt work can anybody help me please!!


Sub deleteLast2Rows()
With ThisWorkbook.Worksheets(1)
Dim rowNum As Integer
Dim m As Range


rowNum = 2
Set m = .Range("A" & rowNum)
rowNum = rowNum - 2

EntireRow.Delete
End With
End Sub