Realizar búsqueda con vba para Aprendemos DAM

Dam, este el código que tengo de búsqueda pero no logro hacerlo que funcione, es el archivo que te copie. Espero puedas ayudarme con la duda. Saludos y gracias de antemano

Private Sub ComFechaL3_Click() Application.ScreenUpdating = False Worksheets("TieSopProSMTL3").Activate 'encuentra lo que tiene el TextBox lo selecciona y copia uf = Range("A" & Rows.Count).End(xlUp).Row 'limpia los campos uf2 = Sheets("ConsL3").Range("A" & Rows.Count).End(xlUp).Row If uf2 = 1 Then uf2 = 2 Sheets("ConsL3").Range("A2:G" & uf2).ClearContents
Set r = Range("C2:C" & uf) Set S = r.Find(TextFecha) If Not S Is Nothing Then ncell = S.Address Do: Set S = r.FindNext(S) If Not S Is Nothing Then uf2 = Sheets("ConsL3").Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A" & S.Row & ",B" & S.Row & ",C" & S.Row & ",D" & S.Row).Copy Sheets("ConsL3").Range("A" & uf2) End If Loop While Not S Is Nothing And S.Address <> ncell End If Application.ScreenUpdating = True Sheets("ConsL3").Select If ncell = "" Then MsgBox "No existen entradas para la fecha seleccionada: " & TextFecha, vbCritical, "CONSULTA FECHA" Else MsgBox "Consulta Terminada", vbInformation, "CONSULTA FECHA" End If Range("A1:E250").Select ActiveWorkbook.Worksheets("ConsL3").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ConsL3").Sort.SortFields.Add Key:=Range( _ "D2:D250"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "enero,febrero,marzo,abril,mayo,junio,julio,agosto,septiembre,octubre,noviembre,diciembre" _ , DataOption:=xlSortTextAsNumbers With ActiveWorkbook.Worksheets("ConsL3").Sort .SetRange Range("A1:G250") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A1").Select
'limpia los campos 'TextBox1 = ""
'muestra la pagina Sheets("SMT").Select
End Sub