Selection.ListObject.ListRows(1).Delete

With ListObjects("Таблица1")
     Selection.Delete Shift:=xlUp
End with

Private Sub Button2_Click() 'Удалить строку
    If MsgBox("Удалить выделенную строку?", vbYesNo + vbDefaultButton2 + vbQuestion) = vbYes Then
        Selection.Delete Shift:=xlUp
    End If
End Sub

Private Sub TextBox2_AfterUpdate()
Dim v1 As Variant
Dim v2 As Variant
     
    v1 = Me.TextBox1.Value
    v2 = Me.TextBox2.Value
     
    transform_value v1
    transform_value v2
    If TextBox1.Value = "" Then
    Exit Sub
    End If
    If IsNumeric(v1) Then
    If IsNumeric(v2) Then
    If v1 <> 0 Then
        Dim d As Double
        d = v2 / v1
        If Int(d) <> d Then myMsgBox
        Exit Sub
    End If
    End If
    End If
     
    myMsgBox
End Sub