Macro Filtro "comienza con" excel

Dante, buenas tardes..

Te quería consultar como cambiar esta macro, para que en ves de activarme el filtro con el criterio "contiene" me lo active con COMIENZA POR ...

A continuación te dejo mi macro actual haber si me podes ayudar..

Saludos cordiales

Julián

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
If Not Intersect(Target, Range("c1:c2")) Is Nothing Then
ActiveSheet.Unprotect "pirucha1"
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
uf = Range("c" & Rows.Count).End(xlUp).Row
Range("b4:c" & uf).Font.Bold = False
Range("b4:c" & uf).Interior.ColorIndex = xlNone
Range("b3:ac" & uf).AutoFilter
If Range("c1") <> "" Then
ActiveSheet.Range("$b$4:$ac$" & uf).AutoFilter _
Field:=2, _
Criteria1:="=*" & Range("c1") & "*", _
Operator:=xlAnd
End If
cont = Range("c2")
If cont <> "" Then
Set r = Range("b4:c" & uf)
Set s = r.Find(cont, LookIn:=xlValues, MatchCase:=False, SearchFormat:=False)
If Not s Is Nothing Then
ncell = s.Address
Do: Set s = r.FindNext(s)
If Not s Is Nothing Then
s.Font.Bold = False
s.Interior.ColorIndex = 4
End If
Loop While Not s Is Nothing And s.Address <> ncell
End If
End If

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Protect "pirucha1"
End If

Application.ScreenUpdating = True
End Sub