Dim Summe As Double
 
Summe = 0
                For Each Drow As DataRow In TaOrders.Rows
                    Tr = Tw.Rows.Add()
                    ZeilenNr += 1
                    'Jetzt die Zellen eintragen
                    Tr.Cells(1).Range.Text = Drow.Item("ProductID")
                    Tr.Cells(2).Range.Text = Drow.Item("UnitPrice")
                    Tr.Cells(3).Range.Text = Drow.Item("Quantity")
                    Tr.Cells(4).Range.Text = Drow.Item("Discount")
                    Tr.Cells(5).Formula("=B" & CType(ZeilenNr, String) & "*C" & _
                      CType(ZeilenNr, String) & "*(1-(D" & CType(ZeilenNr, _
                      String) & "/100))", NumFormat:="#.##0,00 €;(#.##0,00 €)")
                    Summe += CDbl(Drow.Item("UnitPrice")) * CInt(Drow.Item( _
                    "Quantity"))
                Next
                .Bookmarks("Summe").Range.Text = Summe

The World is Yours!