Experimente:

Sub iguala()
Dim uRow As Long
With Sheets("Plan2")
    For uRow = 2 To Sheets("Plan1").Cells(Cells.Rows.Count, "A").End(xlUp).Row 'Ultima linha na planilha 1
    .Cells(uRow, 3) = Sheets("Plan1").Cells(uRow, 1).Value 'coluna C da planilha 2 = valor coluna A planilha 1
    .Cells(uRow, 4) = Sheets("Plan1").Cells(uRow, 2).Value ''coluna D da planilha 2 = valor coluna B planilha 1
    .Cells(uRow, 6) = .Cells(uRow, 5).Value 'coluna F da planilha 2 = Valor Coluna E da planilha 2
    Next
End With
End Sub

Obrigado Reinaldo, mas não era bem isso. Acho que não me expressei mal anteriormente. Todas as células em A e B tem de ser copiadas apenas para C1 e D1 e o resultado de D1 (fórmula) é que tem de ser gravado em F1, F2, F3... Ou seja, C1 e D1 são as unicas céulas que deverão receber todos os valores em A e B, e o resultado gerado para cada combinação destas céulas que é calculado em D1 tem de ser gravados na coluna F.

A1, A2, ... An
B1, B2, .... Bn

C1 e D1, células onde os valores tem de ser substítuidos.

D1 - tem um fórmula, ex. C1 + D1.

F1, F2, ... Fn - Células onde deverá existir a somas de A1 + B1, A2 + B2, .... An + Bn.

Alguem ai pode dar uma ajuda?? Estou precisando disso para terminar minha tese!!

obrigado!

Boa tarde!!

Poste seu arquivo modelo compactado!!

Att

Segue em anexo um arquivo com um exemplo simples. Claro que uma forma mais simples, mas eu entendendo a dinâmica da macro consigurei implementar no meu arquivo real.

Creio ser meio (ou inteiro) leso, não entendi??.
Antes era de uma sheet para outra, agora e na mesma. É para substituir o valor e colar em sequencia, seria um loop ate o final ou não. Ai não há objhetivo em "substituir", o que interessa não é o valor em F??

Caro Reinaldo, desculpa pelo meu post anterior, na verdade quis dizer que me expressei mal.
Não importa se de uma planilha para outra, este é só um exemplo bem simples, se colocar minha planilha aqui iria ficar bem complicado de entender ou explicar. Sim, o que interessa é o valor em F, que seria a soma de A1 + B1, A2 + B2, ..., An + Bn. Preciso copiar todos os valores de A e B apenas em C1 e D1, pegar o resultado da equação em E1 e colar em F, de forma que F terá o mesmo numero de linhas de A e B.

obrigado

Na realidade importa, é muito, se for na mesma planilha ou em outra, mas veja se lhe atende

Sub iguala()
Dim uRow As Long
    For uRow = 1 To Sheets("Plan1").Cells(Cells.Rows.Count, "A").End(xlUp).Row 'Ultima linha na planilha 1
        Sheets("Plan1").Cells(1, 3) = Sheets("Plan1").Cells(uRow, 1).Value 'coluna C
        Sheets("Plan1").Cells(1, 4) = Sheets("Plan1").Cells(uRow, 2).Value 'coluna D
        Sheets("Plan1").Cells(uRow, 6) = Sheets("Plan1").Cells(1, 5).Value 'coluna F
    Next
End Sub

Era exatamente isso Reinaldo, muito obrigado!! A partir daqui acho que consigo expandir pra planilha original!