Delete the last data entered in sorted table using variable
<p>I have a data entry page which is basically the front end the user will interact with to enter data. The sheets with the data are hidden and inaccessible. I want them to have the option to delete the LAST record they added. I am going about this by assigning the last entered number as a variable lastReg. Then the whole row is deleted. The option for finding the last row does not apply here because the data is sorted in a table when it is added. </p>

<pre><code>Public lastReg As Long
Sub DeleteLastReg()

Dim fcell As Range
Set regRange = ThisWorkbook.Sheets("Registration").Range("C:C")
For Each fcell In regRange.Cells
    If fcell.Value = lastReg Then
        MsgAns = MsgBox("You are about to delete Registration Number: " &amp; lastReg &amp; ". Do you wish to continue?", vbYesNo)
        If MsgAns = vbNo Then
            Exit Sub
        Else
        ThisWorkbook.Sheets("Registration").Rows(fcell).EntireRow.Delete
        End If
    End If
Next fcell

End Sub
</code></pre>

<p>The error is in the:</p>

<p>ThisWorkbook.Sheets("Registration").Rows(fcell).EntireRow.Delete</p>

<p>I cant figure out how to refer to that row.</p>