Olá Amigos,
mais uma vez aqui solicitando o auxílio de vocês.
tenho um um formulário onde preciso de um código que limpe a ultima linha preenchida dentro do seguinte intervalo ("B18:M37")
Consegui um código que limpa o intervalo inteiro que me serve caso eu queira apagar todo o intervalo, mas caso eu precise limpar somente as linhas B30 ao M30 por exemplo,
teria que apagar tudo e preencher tudo novamente.
desde já agraço.
att..
Edmaxy 
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
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel