Eliminare riga scelta da userform

Rows(ActiveCell.Row).Delete

Option Explicit
Public rigasel As Long
Sub ShowDBForm()
    DBForm.Show
End Sub

Private Sub Precedente_Click()
    Cells(ActiveCell.Row - 1, 1).Select
    rigasel = ActiveCell.Row
        Setting
End Sub

Private Sub Successivo_Click()
    Cells(ActiveCell.Row + 1, 1).Select
    rigasel = ActiveCell.Row
        Setting
End Sub

Private Sub ExitExpenses_Click()
 ........
    End With
    Sheets(1).Rows(rigasel).Delete
    MsgBox "Trasferimento effettuato"
    DefForm.Hide
    
End Sub

Private Sub Setting()
'   Settaggi
Dim NRc As Long

    NRc = Range("B" & Rows.Count).End(xlUp).Row + 1
    If rigasel < 7 Then Cells(7, 2).Select
    If rigasel > NRc Then rigasel = NRc
    Riga.Value = rigasel
    DataIns.Value = Cells(rigasel, 2).Value
    ...........