Inserir borda inferior usando VBA em planilha com mais de 1000 contatos

[fontesrubens]

Tudo bem pessoal?

 

Estou com uma planilha com cerca de 1000 contatos(e vai aumentando...) e gostaria de inserir apenas a borda inferior, para ir separando visualmente um do outro. Existe um espaçamento de 1 célula e é nele que gostaria de colocar a borda para sair na impressão.

 

Coloquei uma planilha de exemplo em anexo de como gostaria que ficasse.

 

Já utilizei alguns códigos mas sem sucesso, pois acabam colocando borda ao redor e em todas as células.

 

Desde já agradeço!

 

 

 

Teste_bordainferior.xlsx

[fontesrubens]

Utilizando Range, eu consegui colocar ela em todas as linhas...

 

 - Range("a1:k60000").Borders(xlInsideHorizontal).LineStyle = xlContinuous - 

 

Mas não é como gostaria, pois gostaria de saltar de duas em duas linhas e terminar de colocar quando chegar ao ultimo contato cadastrado...

[Basole]

Segue exemplo que faz você precisa: 

Sub BordasACada2Linhas()
Dim LR   As Long
Dim i    As Long

LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To LR + 1 Step 2
    With ActiveSheet.Range("A" & i, "L" & i)
           .Borders(xlEdgeBottom).Weight = xlThin
    End With
Next i

End Sub

 

 

[fontesrubens]

Muito obrigado! Funcionou certinho!

 

Só fiz um ajuste no Range para até a letra K, ao invés de L.

 

Valeu mesmo!