Nao da pra deixar formatado?

De qualquer maneira tente adaptar esse codigo

Sub negritocolorido()

With Range("A1")

.Value = "Teste"
.Font.Bold = True
.Font.ColorIndex = 3

End With

End Sub

amigo nao consegui adaptar o codigo nao

Onde deve acontecer a formatação?

[B1048576].End(xlUp).Offset(2, 1).Value = TOTAL
[A1048576].End(xlUp).Offset(2, 0).Value = Format(" TOTAL COMERCIAL M3 :")
nessa parte, aonde o total e valor da coluna e ele vai direto para o final da ultima linha preenchida, e no total comercial m3 q o msm precedimento do total, vc consegue me ajudar?

Conforme a dica do Marcelo altere para :

[B1048576].End(xlUp).Offset(2, 1).Font.Bold = True
[B1048576].End(xlUp).Offset(2, 1).Font.ColorIndex = 3
[B1048576].End(xlUp).Offset(2, 1).Value = TOTAL


[A1048576].End(xlUp).Offset(2, 0).Font.Bold = True
[A1048576].End(xlUp).Offset(2, 0).Font.ColorIndex = 3
[A1048576].End(xlUp).Offset(2, 0).Value = Format("                           TOTAL COMERCIAL M3 :")

Como não sei de que forma irá utilizar em seu modelo final, e pela rotina este endereço de Total não será fixo e com o uso de Offset estará pulando de linha se já tiver algo nas celulas, mas veja se é isto e qq coisa retorne.

[]s

amigo deu certo, porem com resalvas, como eu relatorio a quantidade de linhas pode aumentar ou diminuir pq eu filtro por alguns criterios, entao quando eu uso o codigo q vc me enviou tem celula q contiua vermelhas msm quando o total por exemplo ja n esta mais nela

Foi o que citei acima referente ao uso de "Offset", e como desconheço o layout de sua planilha não tenho certeza onde quer colocar o resultado, de inicio pensei que como está contando as celulas na coluna "L" o resultado seria lançado uma linha abaixo, só que está utilizando as colunas "A e B" deslocando o foco com o "offset".
Detalhe onde lançar ou anexe um modelo reduzido e compactado para evitar de ficarmos em suposições.

[]s

Acrescente isto no inicio do codigo

range("A2:Ulima coluna do relatorio" & rows.count).Font.Bold = false
range("A2:Ulima coluna do relatorio" & rows.count).Font.ColorIndex = 0

Se os dados de sua planilha começar em outra celula faça as devidas alterações

No lugar de ultima coluna coloque a letra da ultima coluna do seu relatorio.

deu certo muito obrigado...

Só uma obs nas instruções passadas pelo Marcelo, as mesmas formatam as colunas inteiras independente de ter dados ou não, eu a principio não utilizaria desta forma uma vez estaríamos aumentando consideravelmente o tamanho em "bytes" do arquivo já que mesmo as celulas estando em branco o excel entende como se tivessem preenchidas pois considera as formatações, mas se isto não for problema pode ser usada.

[]s