Experimente:

Sub ReplicaValores()
Dim r As Range, c As Range, k As Long, LR As Long
Set r = Sheets("Calculator").Range("B4:B7,B19,E19,H19,C10,C37,C47,C20,B53,E52")
LR = Sheets("Results").Cells(Rows.Count, 1).End(3).Row
For Each c In r
Sheets("Results").Cells(LR + 1, k + 1) = c.Value: k = k + 1
Next c
End Sub

"(ranqueando as linhas do maior FVI para o menor FVI)" ~~~> Não ficou clara esta parte. Se você se refere a ordenar os valores de FVI em ordem decrescente a cada nova linha preenchida na planilha Results, então é possível acrescentar ao código acima o comando para ordenar.

Osvaldo, muito obrigado por ter me enviado essa macro. Resolveu o meu problema!!! 

A ideia do FVI é essa mesmo! Como seria esse comando para ordenar? 

E como eu poderia apagar automaticamente os dados preenchidos na aba Calculator depois de clicar em salvar e mandar para Results? Porque o usuário vai ter que preencher várias vezes a aba Calculator. Apagar os dados preenchidos depois de salvar seria muito útil. 

Mais uma vez, obrigado!!!!!

Joselmar

Acrescente as duas linhas em vermelho ao código que passei, conforme abaixo.

Next c
Sheets("Calculator").Range("B4:B7,B14:B18,E14:E18,H14:H18,C27:D36,C43:D46").Value = "" 'limpa células de Calculator
Sheets("Results").Range("A3:M" & Sheets("Results").Cells(Rows.Count, 1).End(3).Row).Sort Key1:=[L1], Order1:=xlDescending 'ordena os dados de Results
End Sub