Giúp đỡ: Bỏ nút check trong listbox

[nganhubt1989]

Hiện tại mình đang học hỏi và tham khảo code gọi data vào listbox như dưới
nhưng:
Khi load form sẽ hiện nút check hình tròn ở đầu dòng nên khi chọn sửa dữ liệu bằng lệnh cmdSua thì sẽ bị thụt vào 1 ô so với dữ liệu trong bảng tính. (Vấn đề Khi bấm nút Sửa thì dữ liệu bắt đầu ghi từ cột B mà không phải là cột A)
Bây h mình muốn dữ liệu sửa sẽ ghi bắt đầu từ cột A thì làm như thế nào ạ? Và muốn xoá nút check ở đầu trên listbox thì làm như thế nào ạ

Mong các cao thủ chỉ giáo ạ!

'load form goi du lieu
Private Sub UserForm_Initialize()
Dim sArr()
Dim i As Long, Dic1 As Object, Dic2 As Object
sArr() = Sheets("DuLieuKhachHang").Range("A8", Sheets("DuLieuKhachHang").Range("A8").End(xlDown)).Resize(, 11).value
Set Dic1 = CreateObject("Scripting.Dictionary")
Set Dic2 = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(sArr, 1)
If Not Dic1.exists(sArr(i, 1)) Then Dic1.Add sArr(i, 1), ""
If Not Dic2.exists(sArr(i, 11)) Then Dic2.Add sArr(i, 11), ""
Next i
Me.lbUser.List = sArr
Me.cbplandate.List = Application.Transpose(Dic1.Keys)
Me.cbtopline.List = Application.Transpose(Dic2.Keys)
End Sub

'nut sua và cap nhat du lieu
Private Sub cdmsua_Click()
Dim j As Integer, EnRow As Long, Cont
With Worksheets("DuLieuKhachHang")
EnRow = .Range("A" & .Rows.Count).End(xlUp).Row
If EnRow <= 7 Then
EnRow = 8
Else
EnRow = EnRow - 1
End If
End With
With FormNhap
For j = 1 To 1000
Cont = Choose(j, EnRow - 6, .txtngaynhap.Text, .txtmadon.Text, .txthoten.Text, .txtdiachi.Text, .txtsdt, .cbxsanpham.Text, .cbxkhuyenmai.Text, .txttiendauvao.Text, .txtcuocthang.Text, .txtghichu.Text, .cbxmnv.Text)
Worksheets("DuLieuKhachHang").Cells(EnRow, j) = Cont
Next j
End With
MsgBox "CAP NHAT XONG"
End Sub