List1.Range("A2").AutoFill Destination:=List1.Range("A2:A" & nextRow)

Range("A2").Value '- это значение ячейки A2 текущего активного листа
ActiveSheet.Range("A2").Value 'идентично предыдущей строке

List1.Range("A2").Value '- а это значение ячейки A2 листа List1, активным может быть любой другой лист.

Sheets(1).Range("A2").Value '- это значение ячейки А2 первого листа в книге.

Worksheets("ФОРМА ЗАКАЗА").Range("A2").Value '- а тут значение ячейки А2 листа с именем "ФОРМА ЗАКАЗА", имя листа - то, что указано у него на ярлыке в книге. Обычно это удобнее, чем обращаться по именам объектов типа List1.

With List1
    .Range("A2").Value 'Внутри блока With точка перед названием объекта отсылает к свойству родительского объекта, стоящего после слова With.
End With

Function IncrNumbersInAttach(ByVal txt As String, iDelta As Long) As String
    Set myRegExp = CreateObject("VBScript.RegExp")
    With myRegExp
       .Pattern = "\[attach.*attach\]"
       .IgnoreCase = True
       .Global = True
       .MultiLine = True
    End With
    Set mc = myRegExp.Execute(txt)
    
    myRegExp.Pattern = "\d+"
    Dim s As String
    For Each attach In mc
        s = CStr(attach.Value)
        
        Set imc = myRegExp.Execute(s)
        For Each n In imc
            s = Mid(s, 1, n.FirstIndex) & (CLng(n.Value) + iDelta) & Mid(s, n.FirstIndex + n.Length + 1, Len(s))
        Next n
        
        txt = Mid(txt, 1, attach.FirstIndex) & s & Mid(txt, attach.FirstIndex + attach.Length + 1, Len(attach))
    Next attach
    IncrNumbersInAttach = txt
End Function

Function IncrNumbers(ByVal txt As String, iDelta As Long) As String
    Set myRegExp = CreateObject("VBScript.RegExp")
    With myRegExp
       .Pattern = "\d+"
       .Global = True
       .MultiLine = True
    End With
    
    Set mc = myRegExp.Execute(txt)
    For Each n In mc
        txt = Mid(txt, 1, n.FirstIndex) & (CLng(n.Value) + iDelta) & Mid(txt, n.FirstIndex + n.Length + 1, Len(txt))
    Next n
    IncrNumbers = txt
End Function