Colar formatação em n celulas vba

[Arthur Ferreira]

Bom dia!

 

Estou tentando fazer um código que colaria toda a formatação de uma determinada célula em outras, como o código exemplo abaixo:

 

Range("B6:I6").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

 

O problema agora é que eu quero fazer isso repetidas vezes para outras linhas(B7:I7,B8:I8 por exemplo), o VBA me dá essa condição?

 

Se sim, como eu faria isso?

 

Obrigado desde já!

[CasaDoHardware]

Ja pensou em aumentar o range

 

Sub CopiaFormatos()

    Range("B6:I6").Select
    Selection.Copy
    Range("B7:I5000").Select
    Selection.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False

 

End Sub