Sub FilterDataByLetterAndDates()

    Dim ws As Worksheet
    Dim keyCell As Range
    Dim letter As String
    Dim startDate As Date
    Dim endDate As Date

    ' الحصول على ورقة العمل النشطة
    Set ws = ActiveSheet

    ' الحصول على خلية المفتاح
    Set keyCell = ws.Range("A1")

    ' الحصول على الحرف من خلية المفتاح
    letter = keyCell.Value

    ' الحصول على تاريخ البدء وتاريخ الانتهاء من الخليتين المجاورتين لخلية المفتاح
    startDate = ws.Range("B1").Value
    endDate = ws.Range("C1").Value

    ' تصفية البيانات بالحرف بين تاريخين
    ws.Range("A2:D100").AutoFilter Field:=2, Criteria1:=letter, Operator:=xlAnd, Criteria2:=">=" & startDate, Operator2:=xlAnd, Criteria3:="