Sub qq()
    Set rs = Db.OpenRecordset("q_promoexcel", dbOpenDynaset)
    rs.MoveNext: rs.MoveNext: rs.MoveNext
    x = rs(1): xx = rs(2)
    rs.MoveNext
    Do While Not rs.EOF
        If rs(1) = x Then
            rs.Edit
            rs(3) = xx + rs(2)       
            rs.Update
        End If
        x = rs(1): xx = rs(2)
        rs.MoveNext
    Loop
        rs.Close
End Sub

.Formula = .Value

 With Union(cell.Offset(0, 1), cell.Offset(0, 2)).Interior

Sub PolylineСontour(ByVal shp As Shape, ByVal d As Double, ByVal leftHand As Boolean)
    Dim polyPoints() As GeomPoint, polyPoints2() As Single
    Dim ls() As GeomLine, l As GeomLine
    Dim i As Long, n As Long
    GetPolylinePoints shp, n, polyPoints
    ReDim ls(1 To n)
    For i = 1 To n
        GetLine polyPoints(i), polyPoints(i Mod n + 1), l
        GetParallelLine2 l, d, leftHand, ls(i)
    Next
    '     ReDim polyPoints2(1 To n + 1, 1 To 2) As Single
    ReDim polyPoints2(0 To n, 1 To 2) As Single
    For i = 1 To n
        GetIntersectionPoint ls(i), ls(i Mod n + 1), polyPoints(i)
        polyPoints2(i, 1) = polyPoints(i).x
        polyPoints2(i, 2) = polyPoints(i).y
    Next
    polyPoints2(0, 1) = polyPoints2(UBound(polyPoints2), 1)
    polyPoints2(0, 2) = polyPoints2(UBound(polyPoints2), 2)
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, polyPoints2(0, 1), polyPoints2(0, 2))
        For i = 0 To UBound(polyPoints2) - 1
            .AddNodes msoSegmentLine, msoEditingAuto, polyPoints2(i, 1), polyPoints2(i, 2)
        Next
        .ConvertToShape.Select
    End With
    '
    '    Set shp = shp.Parent.Shapes.AddPolyline(polyPoints2)
    '    Dim nds
    '    Set nds = shp.Nodes
    '    n = nds.Count
    '    shp.Fill.Visible = msoFalse
    '    shp.Line.ForeColor.RGB = 0
    '    shp.Line.DashStyle = msoLineDash
End Sub

Sub Мяу()
    With ActiveSheet.ListObjects(1)
        '.ListRows.Add это если нужно добавлять строки
        .DataBodyRange.Formula = .DataBodyRange.Formula
        .DataBodyRange.Offset(1).Resize(.ListRows.Count - 1).Value = .DataBodyRange.Offset(1).Resize(.ListRows.Count - 1).Value
    End With
End Sub