đoạn Code này ý nghĩa gì vậy các anh chị?

[khanhnth02]

e không hiểu ý nghĩa dòng code này mong các anh chị giải thích chi tiết giúp e với: (cái này là xoá một dòng trong dữ liệu)
Private Sub CommandButton2_Click()
Dim Cl As Range
Set Cl = Sheet1.Columns("A").Find(what:=Me.ListBox1)
Sheet1.Rows(Cl.Row).EntireRow.Delete
Nap
End Sub


và cả doạn này nữa:
Sub Nap()
Dim ch As String
ch = Sheet1.Name & "!" & Sheet1.Range("A2:C" & Sheet1.[C65536].End(3).Row).Address
If Me.ListBox1.ListCount > 0 Then Me.ListBox1.RowSource = ""
Me.ListBox1.RowSource = ch
Me.ListBox1.ListIndex = 0
End Sub


Sao e áp dụng vào file dưới đây mà không được, nó báo lỗi hoài