Emptying cells after blank rows

[Spencery]

Hello, I've been looking for a way to empty cells that appear after blank rows. I believe VBA will be needed but I have very little experience in it. Let me show you the example of what I mean:

So I need to clear the cells colored in yellow. I don't want to delete the rows, only to empty the cells. Is it even possible? I would really appreciate all the help. Thank you.

 

[Peter_SSs]

Welcome to the MrExcel board!

Assuming there is always at least one name at the top of the list, try this with a copy of your workbook.

Sub Clear_Data()
  ActiveSheet.UsedRange.Offset(Range("A1").End(xlDown).Row).ClearContents
End Sub

 

[Spencery]

Welcome to the MrExcel board!

Assuming there is always at least one name at the top of the list, try this with a copy of your workbook.

Sub Clear_Data()
  ActiveSheet.UsedRange.Offset(Range("A1").End(xlDown).Row).ClearContents
End Sub

Thank you, it kind of works but not quite. It deletes the entire rows so in this case I am left with something like that

So I lost the rest of the positions from the second table. Could we use this code to clear for example three cells within the row in the table one and the same thing with table two except this time the whole process begins three rows lower? Or there have to be created two separeted macros for such an effect?

 

[Peter_SSs]

Sorry, I didn't study your example well enough and thought they were just two separate samples.

Try this instead

Sub Clear_Data_v2()
  Dim rA As Range
 
  For Each rA In Rows(1).SpecialCells(xlConstants).Areas
    With rA.CurrentRegion
      .Offset(.Rows.Count).Resize(Cells(Rows.Count, rA.Column).End(xlUp).Row).ClearContents
    End With
  Next rA
End Sub