Veja se é isso:

Segue:

poderia postar sua planilha?

Acrescente esse argumento no seu código: .Cells(I, 1).Resize(, 6).Borders.LineStyle = xlContinuous

Veja se isso te atende:

Bom dia, veja se é mais ou menos assim:

Mas nesse caso você iria inserir o caminho do arquivo ? para ele puxar de lá?

hospeda num servidor qualquer e posta o link aqui

Valendo as mesmas regras da postagem anterior e supondo que o resultado vai estar na B1 Sub soma_dinamica() Dim Ul As Long Ul = Plan1.Range(&quo...

Supondo que os dados da soma estão na coluna A e que eles iniciam na linha 2: =SOMA(INDIRETO("A2:A"&PROC(2;1/(A:A<>&quo...

Colega MPrudencio,na verdade eu nao preciso. Foi a maneira que eu achei para exemplificar a duvida. Mas,pelas respostas doa clegas acima ja entendi ...

Colega Rebs7, por favor, monte pelo menos um exemplo da sua planilha e poste aqui pra gente pois, através da sua imagem, eu não consigo nem saber onde...

Poste sua planilha por favor...

Não sei se é isso o que quer dizer mas tente: Crtl + R