Copiar e colar linha, calcular copiar e colar resultado e repetir via Macro

[Clonner]

Pessoal, tenho uma tabela com 1119 linhas e 15 colunas, necessito copiar cada linha iniciando em C6:Q6, colar no intervalo C3:Q3, cópiar o resultado da célula A3 e colar o valor na célula B6.

Seguir para a próxima linha copiar C7:Q7, colar no intervalo C3:Q3, copiar o resultado de A3 e colar o valor em B7.

e assim sucessivamente até a última linha preenchida.

 

Segue o que tenho:

 

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("C6:Q6").Select
    Selection.Copy
    Range("C3:Q3").Select
    ActiveSheet.Paste
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

Desde já agradeço.

[Xflapc2]

Sub Macro2()For x = 6 to 2000    Range("C" & x & ":Q" & x).Select    Selection.Copy    Range("C3:Q3").Select    ActiveSheet.Paste    Range("A3").Select    Application.CutCopyMode = False    Selection.Copy    Range("B" & x).Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=Falsenext xEnd Sub

Será?

[Clonner]

@Mention,

 

Funcionou perfeitamente!

 

Mais uma vez obrigado!