Clear Content Scripts??

[rikinel]

Hi everyone,
would you like to help me??

In sheet 1, I must find the word "POPULATION",after that I must clear content all row below until row 99 because in row 100 the word "AVERAGE" is not allowed to be cleared/deleted. How to make clear content process stop automatically when it reach row 99. How to make by DO WHILE LOOP, FOR NEXT or any other solutions because I am a beginner in VBA.

And so on until sheet 10
Thank your for your suggestion

[dannymking]

Hi and Welcome,

I Take it you know which column this will appear?? And are you wanting the information removing, or the entire row?

'Set the cell below population
  Do While ActiveCell.Row < 99
    ActiveCell.EntireRow.Clear
    ActiveCell.OffSet(1,0).Select
  Loop

Or

Range("A2").Select
  Do While ActiveCell.Value <> "AVERAGE"
    ActiveCell.EntireRow.Delete
  Loop

However with the second one you will need to know the exact cell the word AVERAGE will appear in, and also move the cursor below the row containing POPULATION.

To loop around the sheets do

Dim i As Integer
  For i = 1 to 10
    Sheets(i).Activate
    'loop around Cells here
  Next i