"Select Method of Range class failed"

[Dotto]

Boa noite!

Estou tendo um pouco de dificuldade com alguns códigos de VBA. Não sou totalmente analfabeto em programação, mas tenho muito pouca experiência e apenas alguns dias de contato com VBA.

Especificamente, estou recebendo a crítica "Select Method of Range class failed" ao tentar apagar uma seleção de células. Acredito que seja por elas terem formatação diferentes, mas não tenho certeza.

Seguem os dois códigos:

Sheets("Relatorio").Range("A2:D10").Select
Selection.ClearContents
Sheets("Relatorio").Range("A13:D21").Select
Selection.ClearContents

Sheets("Planilha").Range("B4:B7").Select.ClearContents
Sheets("Planilha").Range("B11:B15").Select.ClearContents
Sheets("Planilha").Range("B17:B18").Select.ClearContents

Resolvi o problema apagando uma por uma, mas queria um código mais enxuto.

Agradeço desde já.

[Dotto]

Ninguém sabe responder?

Aproveito pra fazer outra pergunta:

Fiz o seguinte código pra ser executado automaticamente quando mudar o valor da célula B2, porém não está funcionando.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        Call changeFESP
    End If
    Application.EnableEvents = True
End Sub

Sub changeFESP()
    Select Case B2
        Case FESP
            For Each cell In Range("B13:B15")
                cell.EntireRow.Hidden = True
            Next cell
        Case Estatutário
            For Each cell In Range("B13:B15")
                cell.EntireRow.Hidden = False
            Next cell
    End Select
End Sub

Também queria saber se é possível esconder apenas as células do Range, sem esconder a linha toda.

Se alguém puder me auxiliar, ficarei muito agradecido.