Private Sub CommandButton3_Click()
Dim indeks As Integer
With Sheet6.ListObjects("Tabel_Activity")
.ListRows.Add AlwaysInsert:=True
indeks = .ListRows.Count + 1
.Range.Cells(indeks, 1) = "A-" & indeks
.Range.Cells(indeks, 2) = ComboBox1.Value
.Range.Cells(indeks, 3) = TextBox1.Value
.Range.Cells(indeks, 4) = TextBox2.Value
.Range.Cells(indeks, 5) = Val(ComboBox2.Value)
.Range.Cells(indeks, 6) = Val(ComboBox3.Value)
.Range.Cells(indeks, 7) = Val(ComboBox4.Value)
.Range.Cells(indeks, 8) = ComboBox5.Value
.Range.Cells(indeks, 9) = ComboBox8.Value
End With
Unload Me
End Sub