Ajuda Excel if else

[ericsilvapereira]

Sub Geral()

Sheets("Boletim de Ocorrência").Select

If H30 <= 11 Then

Sheets("Estatística").Select

Range("BA5:BH5").Select

Selection.ClearContents

Range("BA5").Select

ActiveCell.FormulaR1C1 = "X"

If 12 >= H30 <= 17 Then

Sheets("Estatística").Select

Range("BA5:BH5").Select

Selection.ClearContents

Range("BB5").Select

ActiveCell.FormulaR1C1 = "X"

If 18 >= H30 <= 24 Then

Sheets("Estatística").Select

Range("BA5:BH5").Select

Selection.ClearContents

Range("BC5").Select

ActiveCell.FormulaR1C1 = "X"

If 25 >= H30 <= 29 Then

Sheets("Estatística").Select

Range("BA5:BH5").Select

Selection.ClearContents

Range("BD5").Select

ActiveCell.FormulaR1C1 = "X"

If 30 >= H30 <= 34 Then

Sheets("Estatística").Select

Range("BA5:BH5").Select

Selection.ClearContents

Range("BE5").Select

ActiveCell.FormulaR1C1 = "X"

If 35 >= H30 <= 64 Then

Sheets("Estatística").Select

Range("BA5:BH5").Select

Selection.ClearContents

Range("BB5").Select

ActiveCell.FormulaR1C1 = "X"

If H30 >= 65 Then

Sheets("Estatística").Select

Range("BA5:BH5").Select

Selection.ClearContents

Range("BB5").Select

ActiveCell.FormulaR1C1 = "X"

Else

Sheets("Estatística").Select

Range("BA5:BH5").Select

Selection.ClearContents

Range("BH5").Select

ActiveCell.FormulaR1C1 = "X"

End If

End If

End If

End If

End If

End If

End If

End Sub