Macro adicionar valor

[Andarilho Ermitão]

Boa noite

Fiz essa macro com o gravador mais o resultado dela não é bom o looping fica muito grande precisava de ajuda para melhora-la.

A macro é bem simples a célula ''AO5'' É igual a ''AM6'' e as células posteriores somam +1 da célula anterior.

http://www.sendspace.com/file/k8sbee

Sub Classificar_Dias()

'

' U:AA

'

'

Range("U5").Select

ActiveCell.FormulaR1C1 = "=R[1]C[-2]"

Range("V5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]"

Range("V5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("W5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("X5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("Y5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("Z5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("AA5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("U5:AA5").Select

Selection.Copy

Range("U5").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

'

' AC:AL

'

'

Range("AC5").Select

ActiveCell.FormulaR1C1 = "=RC[-2]+1"

Range("AD5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("AE5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("AF5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("AG5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("AH5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("AI5").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+1"

Range("AI6").Select

Range("AC5:AI5").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

[zinhovba]

Boa noite!!

Eu não posso olhar seu arquivo agora, mas tente.

With Range("Seu_Interlavo") 
    .Formula = "SuaFormula" 
    .Value = .Value 
End With 

[Andarilho Ermitão]

ZInho deu certo obrigado

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.