Below is an example to get the active cell and delete current row.
' This code was borrowed from http://www.viiweb.com and is free to use without
' warranties or guarantees.
Dim activeRow, intTemp As Integer ' declare some variables
activeRow = ActiveCell.Row ' get the current row
intTemp = activeRow
Rows(intTemp & ":" & intTemp).Select
Tested Platform: Excel 2010