ماكرو: لمسح نطاق محدد بدقة(( عمود او عدة اعمدة او صفوف))

 Sub EFAC1TREM()
    Dim réponse As Byte
    réponse = MsgBox("تكتب رسالة تنبيه", vbYesNo, " rossilada")
    If réponse = 6 Then
  Range("F9:D33").Select
    Selection.ClearContents
      Range("F42:D62").Select
    Selection.ClearContents
    Range("H9:H33").Select
    Selection.ClearContents
    Range("H42:H62").Select
    Selection.ClearContents
    Range("B1").Select
End If
End Sub