Add extra step to current macro to reset table

[Pete]

See attached workbook
Hi Experts

i have been working on a clear contents macro that finally works fine, but how would i without make a complete pigs ears of the current macro add the following step.

just need the current macro once the data has been cleared from the 3 table(s) rows below the word milestone in each table.

to reset the number of empty/blank rows below the word milestone to five empty rows. Just that.


[vba]Sub ClearData()
Application.ScreenUpdating = False
Dim rng As Range, Cell As Range

Set rng = Range("A14:K" & Cells(65536, "B").End(xlUp).Row)
For Each Cell In rng
If (Range("B" & Cell.Row).Interior.ColorIndex = -4142 And Range("B" & Cell.Row).Font.Bold = False) Then
Cell.ClearContents
End If
Next Cell

Application.ScreenUpdating = True

End Sub[/vba]

[Pete]

any initial ideas?

[Pete]

im guessing this cannot be done?

[MaximS]

Your goal is achievable but your post is not explaining the problem well.

Can you please write what exactly you want to do with that macro?

Is that just clearing the content of 3 tables in "Latin_America_Santander" Sheet just under word Milestiones?

If yes then how many rows under that word? Is it variable or allways the same number of rows?

[Aussiebear]

Pete, please wrap your sections of code with the VBA button. See how much clearer it becomes as I've done this for you in your initial post.

[rbrhodes]

here ya go