Private Sub CommandButton1_Click()
Dim Limit As Long
Limit = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Sheet1").Cells(Limit, 1) = TextBox1.Value
ListBox1.RowSource = "Sheet1!A2:A" & Limit
End Sub
Private Sub CommandButton2_Click()
Dim DeleteRow As Long
Dim Limit As Long
DeleteRow = ListBox1.ListIndex + 2
If DeleteRow < 2 Then Exit Sub
Sheets("Sheet1").Rows(DeleteRow).Delete shift:=xlUp
Limit = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
ListBox1.RowSource = "Sheet1!A2:A" & Limit
End Sub