Smaran's questions

Estou aprendendo a criar fórmulas em VBA pela internet, e me deparei com este artigo de Jon do campus excel onde ele estava ensinando a criar fórmulas para a variação percentual.

Eu, no entanto, não consegui entender uma parte do código, onde ele usou as aspas duplas e o sinal de e comercial ao criar a fórmula.

sFormula = "=SEERRO((" & sNovo & " - " & Vendido & ")/" & Vendido & ",0)"

Alguém pode me dizer por que o sinal de e comercial é usado entre sNew e sOld, e também por que não usar as vírgulas e o sinal de e comercial leva à falha do código?

A codificação completa é a seguinte-

Sub Percent_Change_Formula()
'Description: Creates a percentage change formula
'Source: https://www.excelcampus.com/vba/percentage-change-formulas-macro/

Dim rOld As Range
Dim rNew As Range
Dim sOld As String
Dim sNew As String
Dim sFormula As String


'End the macro on any input errors
'or if the user hits Cancel in the InputBox
On Error GoTo ErrExit

'Prompt the user to select the cells
Set rNew = Application.InputBox( _
        "Select the cell that contains the NEW number", _
        "Select New Cell", Type:=8)
Set rOld = Application.InputBox( _
        "Select the cell that contains the OLD number", _
        "Select Old Cell", Type:=8)

'Get the cell addresses for the formula - relative references
sNew = rNew.Address(False, False)
sOld = rOld.Address(False, False)
    
'Create the formula
sFormula = "=IFERROR((" & sNew & " - " & sOld & ")/" & sOld & ",0)"

'Create the formula in the activecell
ActiveCell.Formula = sFormula

ErrExit:
    
End Sub

Quero fazer um loop para copiar o intervalo A6 para B 2365 e colá-lo 18 vezes abaixo do intervalo anterior, ou seja, quero colá-lo logo abaixo do intervalo anterior, portanto, se o primeiro intervalo terminar na linha número 2365, quero o copiado intervalo a ser colado na linha número 2366.

Fiz uma gravação de macro e cheguei ao seguinte código, mas isso ocorre apenas 1 vez, quero um código que possa repetir essa tarefa 18 vezes.

Range("A6:B2365").Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15