You can get the table and row from the selection
Code:
Dim oTable As Table
Dim iRow As Long
If Selection.Information(wdWithInTable) Then
Set oTable = Selection.Tables(1)
iRow = Selection.Rows(1).Index
MsgBox "Selection in row " & iRow
Else
MsgBox "Not in Table"
End If