Macro to delete lines below empty cell

[ironsides]

Starts Cel A11

Entire Col A has either color no data or data no color or both

Macro needed that will delete all lines below the first cell in col A that it detects has no color or data.

and keeps the initial blank line.

or

Keep the lines and delete all data and color after it finds no entry in Col A (This is my preference)

 

[Peter_SSs]

See if this does what you want. I have assumed there will be at least one cell with no value before the last value cell or colour cell in column A

Sub Clear_Cells()
  Dim c As Range
  
  For Each c In Columns("A").SpecialCells(xlBlanks)
    If c.Row > 10 And c.Interior.Color = 16777215 Then
      Rows(c.Row + 1 & ":" & FarRow).Clear
      Exit For
    End If
  Next c
End Sub

 

[ironsides]

Rows(c.Row + 1 & ":" & FarRow).Clear

Here I get a run-time error ('13')
Type Mismatch

 

[Peter_SSs]

Ooops, I did a late edit to the code - but only part of it. Sorry. That line should be

Rows(c.Row + 1 & ":" & Rows.Count).Clear

 

[ironsides]

Ooops, I did a late edit to the code - but only part of it. Sorry. That line should be

Rows(c.Row + 1 & ":" & Rows.Count).Clear

Thank you Peter. Works like a charm Ironsides

 

[Peter_SSs]

Cheers. Thanks for the confirmation.