Option Explicit
Sub FiltreleTopla()
    Dim ws As Worksheet, sehir As String
    Set ws = ThisWorkbook.Worksheets("Ornek")
    sehir = Trim$(CStr(ws.Range("F4").Value2))
    ws.Range("F8").ClearContents
    If ws.FilterMode Then ws.ShowAllData
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    If sehir = "" Then
        ws.Range("A4:C10").AutoFilter
    Else
        sehir = Replace(sehir, "~", "~~")
        sehir = Replace(sehir, "*", "~*")
        sehir = Replace(sehir, "?", "~?")
        ws.Range("A4:C10").AutoFilter Field:=1, Criteria1:="=" & sehir
    End If
    ws.Range("F8").Value = Application.WorksheetFunction.Subtotal(109, ws.Range("C5:C10"))
End Sub
