Delete Row Of Active Cell

I have a macro for deleting a row. I want iit to delete the row that I have selected, that is i if I mark cell B22 I want it to delete row 22. But it deletes the row under it, that is 23.

Sub Tabortrad()
Dim intRadnr As Integer
Dim intStartrad As Integer
Dim intSlutrad As Integer
intRadnr = ActiveCell.Row
intStartrad = ActiveSheet.Range("Första").Row + 1
intSlutrad = ActiveSheet.Range("Sista").Row - 2
If intRadnr < intStartrad Or intRadnr >= intSlutrad Then
MsgBox "Kan inte radera denna rad. Placera markören på en av bokföringsraderna mellan rad " & intStartrad & " och rad " & intSlutrad - 1 & "." & Chr(13) & "En ny rad kommer att infogas under den rad där markören står.", vbOKOnly, "Felaktig rad markerad".......................

• Insert Row On Sheet & Move Active Cell Row To It
• Highlighting Active Cell's Row, Along With Any Row That Shares Same Value In That Column
• Delete N Rows From Active Cell
• Insert Row At Active Cell With Formula From Fixed Row
• Use Value Of Active Cell To Name Row
• Row Of Active Cell Selected
• Use Active Cell For Row Number
• Row Number Of Active Cell
• Highlight Row Of Active Cell
• Whole Row Of Active Cell Should Be Bold
• Select Row For Active Cell
• Range In Same Row As Active Cell
• Moving Active Cell In Same Row To Column A
• Macro To Select The Row That The Active Cell Is In
• Highlite Or Underline Active Cell Row
• Use Active Cell Row To Check Another Column
• Offset Active Cell To Beginning Of Row
• Return Active Cell's Location/row
• Merge Range Based On Active Cell Row
• Determine Row Number Of Active Cell In CurrentRegion
• Set Variable To Row & Active Cell Column
• Fill UserForms Controls Based On Active Cell/Row/Column
• Pick Data From A Specific Row/column (eg 10/B) Related To Active Cell
• Search For Text Delete This Row And Delete The Row For Every Instance
• If Cell Contains Value, Delete Whole Row
• Delete Row If Cell Contains A Z
• Delete Row If Cell Contains
• If Cell Contains Certain Value, Delete Row
• Delete Active Workbook
• VB Code - Cell(Lx)= (x) Then Delete Row (x)
• Check Value Of Cell, And Delete Row
• Delete Row If Cell Value Is Not Number
• Delete Row If Cell Is Empty
• Delete Row If Cell Equals
• Delete Row Based On Cell Below
• Delete Row When Cell Not Equal To Another
• Delete Row Based On Cell Value
• Delete Sheets In Active Workbook
• ACtiveCell.row: Active Row Is Empty
• Delete The Whole Row If Any Cell In A Certain Column Has Certain Text
• First Character In Cell Is Text Then Delete Row
• Delete Row If Blank Cell In Column
• How To Delete The Record (row) If Cell = Xyz
• Delete Columns Where Any Cell In Row X Is Empty
• Delete Entire Row If Cell Equals
• Delete A Whole Row If Text Appears In A Cell
• Delete Row If Cell Contains Specific Data
• Macro To Delete Row If Cell Is Empty
• If Cell Contains The Word Delete Entire Row
• Delete Row Based On First 4 Characters Of Cell