UP  !!!!

وعليكم السلام أخي الكريم
لا داعي للاستعجال فلكل واحد منا له ظروفه ومن يجد الوقت لمساعدة إخوانه لا يتأخر ولا يتردد في ذلك

جرب الكود التالي عله يكون المطلوب

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
    Dim lastRow As Long: lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    Dim rng As Range:    Set rng = Me.Range("G8:JZ" & lastRow)
    If Target.Value = "X" Then Cancel = True: Target.ClearContents: Exit Sub
    If Not Intersect(Target, rng) Is Nothing Then
        Target.Value = "X"
        Cancel = True
    End If
End Sub

بارك الله فيك أستاذ ياسر
على هذا الكود الرائع

بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات