Nhờ các Bro giải thích giúp

[transon5012]

trả là e mơi hoc vba excel
có đoạn code ko hiều nhờ các bro giải thích giúp
(chú thích từng dòng cho e thì tốt quá )

Private Sub UserForm_Activate()
TextBox1.Value = ""
ListBox1.Clear
With ActiveCell
If .Column = 3 Then dl = Sheets("DS-QUA").Range("o1" & Sheets("DS-QUA").[o65536].End(xlUp).Row)
If .Column = 4 Then dl = Sheets("DS-QUA-NV").Range("j4:j" & Sheets("DS-QUA-NV").[j65536].End(xlUp).Row)
If .Column = 5 Then dl = Sheets("DS-QUA-NV").Range("c2:c" & Sheets("DS-QUA-NV").[c65536].End(xlUp).Row)
If .Column = 7 Then dl = Sheets("DS-QUA").Range("k1:k" & Sheets("DS-QUA").[k65536].End(xlUp).Row)
If .Column = 8 Then dl = Sheets("DS-KHACHHANG").Range("b2:b" & Sheets("DS-KHACHHANG").[b65536].End(xlUp).Row)
End With
For i = 1 To UBound(dl)
If dl(i, 1) <> "" Then
With ListBox1
.AddItem dl(i, 1)
.List(.ListCount - 1, 1) = dl(i, 1)
End With
End If
Next
Erase dl
End Sub