skip code if not blank cell

[omairhe]

peace all,

with the code :=

    Range("1:1,51:51,101:101,151:151").Delete Shift:=xlUp

how to check individual range from above if blank or not, and then apply deletion to that particular range.

for instance


1:1 = not blank, then skip code
51:51 = blank, then delete shift:=xlUp
101:101 = not blank, then skip code
151:151 = not blank, then skip code

 

[omairhe]

Updated with some corrections.

Sub Delete()
    Dim x As Long
    Dim y As Long
    Dim z As Long
    Dim lr As Long
    Dim cellrow As Range
    
    For x = 1 To 151 Step 50
        
            Cells(x, 1).Select
            Set cellrow = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 255))
            z = Application.WorksheetFunction.CountA(cellrow)
            lr = Range(Cells(x, 1), Cells(x, 1).End(xlDown)).Count
            
            If z = 0 Then
            For y = 1 To lr
            Set cellrow = cellrow.Resize(y)
            cellrow.Select ' Checking resize
            z = Application.WorksheetFunction.CountA(cellrow)
            If z > 0 Then
            Set cellrow = cellrow.Resize(y - 1)
            cellrow.Delete shift:=xlShiftUp
            y = lr
            End If
            Next y
            End If
    Next x
End Sub

[/QUOTE]


I appreciate the code. Working like it should now..

 

[Mindpsyche]

Thanks for the feedback.