[Hỏi] Code VBA dùng chức năng filter trong excel

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lr As Long
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
End With
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
  Lr = Cells(Rows.Count, 1).End(xlUp).Row
  Range("A1:G" & Lr).AutoFilter 1, [h1]
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
End With
End Sub

Private Sub TextBox1_Change()
     Dim Sh As Worksheet
     Dim rNguon As Range, rKqua As Range
     Dim MaHieu As String
     If Len(TextBox1) = 2 Then TextBox1 = TextBox1 & "."
     TextBox1 = UCase(TextBox1)
     MaHieu = TextBox1.Value
     If MaHieu = "" Then Exit Sub
     Set Sh = ThisWorkbook.Sheets("DM")
     Set rNguon = Range(Sh.[A2], Sh.[A65536].End(xlUp))
     Set rKqua = rNguon.Find(MaHieu, , xlFormulas, xlPart)
     If rKqua Is Nothing Then GoTo Thoat
     rKqua.Activate
     TextBox1.Activate
Thoat:
    'Giai phong bo nho
     Set Sh = Nothing
     Set rNguon = Nothing
     Set rKqua = Nothing
End Sub

     i = 1
     Do Until Left$(rKqua.Offset(i), iKyTu) <> MaHieu
        i = i + 1
     Loop
     rNguon.Rows.Hidden = False
     Range("A2", rKqua.Offset(-1)).Rows.Hidden = True
     Range(rKqua.Offset(i), "A" & lDong).Rows.Hidden = True