eu uso assim

Sub Limpa()
If Plan_Aq <> Plan_Princ Then Range(Ti & Li, Cf & Lf).ClearContents
End Sub

Sub auxb()
Ti = "HM"        'Coluna titulo
CData = "HN"
Ci = "HP"        'Coluna inicial
'Cf = "HJ"       'Coluna final
End Sub

Sub Limit()
Li = 100
Lf = 5000
Di = Cells(18, 16).Value

Plan_Aq = ActiveSheet.Name       'Planilha Ativa
Plan_Princ = Range("E10").Value       'Planilha Principal

End Sub

Mas vc pode usar assim

Sub Proa()
Ci = Range("F12").Value         'Coluna inicial apenas letra >> pega letra de coluna na celula  (F12)
Li = Range("F13").Value     'linha inicial apenas numero

Cf = Range("F14").Value      'Coluna Final  apenas letra >>>pega letra de coluna na celula  (F14)
Lf = Range("F15").Value      'linha final dados apenas numero

Range(Ci & Li, Cf & Lf).ClearContents
End Sub

como não sei como é sua planilha fica difícil definir algo mais eficiente

Olá Edcronos,

fiz alguns testes porém não fui bem sucedido...
Não compreendi bem os códigos que postou(um pouco leigo no assunto)...

Veja se o tópico abaixo ajuda, é só ajustar os endereços:
última linha de um intervalo
viewtopic.php?f=10&t=1630

Quanto ao Range fixo: ("B30:M30") é só usar Range.("B30:M30").ClearContents

[]s