Boa Tarde,

gostaria de ver se alguém pode me auxiliar estou com o código abaixo mas não faz o que estou precisando.
preciso que ele selecione as células a seguir, após descer uma linha.
o código é para inserir as bordas nas células selecionadas, ou seja da célula referente a coluna A até a célula da coluna G
o código que segue abaixo insere as bordas em todas as linhas, mas preciso inserir só na linha a seguir, (intervalo de A:G)

Sub marcarascelulas()
'Define o intervalo cujas bordas serão formatadas
    Range("A1048576").Select             ' desce até a ultima célula da coluna A
    Selection.End(xlUp).Select           ' sobe até a ultima célula com informação
    ActiveCell.Offset(1, 0).Select       ' desce uma linha
  
' Set rg = ActiveSheet.[A:G].Select  ' errando aqui

'Vetor que contém os valores correspondentes às bordas a serem formatadas
'Pode ser construído utilizando-se os valores numéricos das constantes:
'Bordas = Array(7, 8, 9, 10, 11, 12)

Bordas = Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight, xlInsideVertical, _
xlInsideHorizontal)

'Define o loop para percorrer os item da coleção Borders
For k = LBound(Bordas) To UBound(Bordas)
    
        With rg.Borders.Item(Bordas(k))
        
        'Define o estilo de linha
        .LineStyle = xlContinuos
        
        'Define a cor da linha
        .ColorIndex = 0
        
        'Define a espessura da linha
        .Weight = xlThin
        End With
Next k

End Sub