مسح وتفريغ اعمدة بناء على شرط

[ضياء 2]

السلام عليكم الاخوة الكرام بالمنتدى فضلا من كرمكم في عمل كود " المطلوب لو العمود A لا يوجد به بيانات يمسح ويفرغ خلايا  الاعمدة  F - E - D "

كود.xlsb

[محمد هشام.]

وعليكم السلام ورحمة الله تعلى وبركاته

Sub Clear_Cells()
    Dim mh_last_row As Long
    Dim k As Long
    Application.ScreenUpdating = False
    mh_last_row = Cells(Rows.Count, "d").End(xlUp).Row
    For k = 4 To mh_last_row
        If Cells(k, "a").Value = "" Then Range(Cells(k, "d"), Cells(k, "f")).ClearContents
    Next k
    Application.ScreenUpdating = True
End Sub

 

كود.xlsb

[ضياء 2]

شكرا جزيلا استاذنا الكريم هو ده المطلوب