VBA clear column if 1st row is blank

[Akbarov]

Hello Dear community,

I use following VBA to clear whole column if 1st row is blank.
It works perfectly fine.
Problem is I need it to delete no whole column. But from row 3 to row 60 and also from row 500 to row 1000.
Can anyone help me modify this code to achieve that ?

Sub Clear_Out()
Application.ScreenUpdating = False
Dim c As Range
    For Each c In Range("F2:TY2")
        If c.Value = xlnullstring Then
            c.Resize(54, 1).Value = xlnullstring
        End If
    Next
Application.ScreenUpdating = True
 
End Sub

 

[Logit]

Believe you posted the wrong macro.

 

[Akbarov]

Nevermind macro. Can you show me better way to do that?

 

[Michael M]

How about

Sub Clear_Out()
If Range("F1") = "" Then Range("F3:F60,F500:F1000").Clear
End Sub

 

[Phuoc]

Sub Clear_Out()
Application.ScreenUpdating = False
Dim c As Range
    For Each c In Range("F2:TY2")
        If c.Value = "" Then
            c.Resize(54, 1).ClearContents
            c.Offset(498, 0).Resize(501, 1).ClearContents
        End If
    Next
Application.ScreenUpdating = True
 
End Sub

 

[Akbarov]

Thank you so much Phuoc...

Also Michael I needed code not only for single cell. But thanks for reply.