Excel macro berbasis Barcode

Private Sub combro_kode_Change()
    Dim index As Integer
    Worksheets("REKAP").Activate
    Cells(combro_kode.ListIndex + 6, 4).Select
    text_nama = ActiveCell.Value
    Cells(combro_kode.ListIndex + 6, 5).Select
    text_satuan = ActiveCell.Value
    Cells(combro_kode.ListIndex + 6, 11).Select
    text_stock = ActiveCell.Value
    Worksheets("OUT").Activate
End Sub
Private Sub combro_user_Change()
    Dim index As Integer
 
    Worksheets("USER").Activate
    Cells(combro_user.ListIndex + 2, 2).Select
    text_user = ActiveCell.Value
    Cells(combro_user.ListIndex + 2, 3).Select
    text_dept = ActiveCell.Value
    Cells(combro_user.ListIndex + 2, 4).Select
    text_IO = ActiveCell.Value
    Worksheets("OUT").Activate
End Sub
Private Sub cmd_tambah_Click()
    Dim Wury As Long
    Wury = WorksheetFunction.CountA(Range("B:B")) + 4
    Cells(Wury, 2).Select
    Cells(Wury, 2).Value = combro_kode.Value
    Cells(Wury, 3).Value = text_nama.Value
    Cells(Wury, 4).Value = text_satuan.Value
    Cells(Wury, 15).Value = text_tanggal.Value
    Cells(Wury, 6).Value = text_jumlah.Value
    Cells(Wury, 7).Value = text_dept.Value
    Cells(Wury, 8).Value = text_user.Value
    Cells(Wury, 9).Value = text_IO.Value
    Cells(Wury, 10).Value = text_ket.Value
    Call bersih
    combro_kode.SetFocus
End Sub

     
Private Sub SpinButton1_Change()
    text_jumlah = SpinButton1.Value
End Sub

Sub bersih()
    combro_kode.Value = ""
    text_nama.Value = ""
    text_satuan.Value = ""
End Sub