como sacar automaticamente la diferencia de ingresos y egresos por exel

[giovannipando]

Dim Sqlcnndiario As SqlClient.SqlConnection = New SqlClient.SqlConnection()
CONEXION(Sqlcnndiario)
Dim NtablaIngresosdiario As DataTable = New DataTable()
Dim NtablaEgresosdiario As DataTable = New DataTable()
Dim Fdiario As Date = Microsoft.VisualBasic.Left(Me.DateTimeDia.Value, 10)
NtablaIngresosdiario = TotalIngresos(Sqlcnndiario, Fdiario)
NtablaEgresosdiario = TotalEgresos(Sqlcnndiario, Fdiario)
If NtablaIngresosdiario.Rows.Count >= 1 Or NtablaEgresosdiario.Rows.Count >= 1 Then
Mexel = New Excel.Application()
Mexel.Visible = True
Dim Libro = Mexel.Workbooks.Add
Dim Hoja As Excel.Worksheet
Hoja = Mexel.Worksheets(1)
'' Crear el encabezado de nuestro informe
Hoja.Range("A1:E1").Merge()
Hoja.Range("A1:E1").Value = "Reportes de Cuadro de Cajas"
Hoja.Range("A1:E1").Font.Bold = True
Hoja.Range("A1:E1").Font.Size = 15
Hoja.Visible = Excel.XlSheetVisibility.xlSheetVisible
Dim celdas As Excel.Range = Hoja.Range("A3", Type.Missing)
celdas.Value = "F. Ingreso"
celdas = Hoja.Range("B3", Type.Missing)
celdas.Value = "Total"
celdas.EntireColumn.NumberFormat = "###,###.00"
celdas = Hoja.Range("D3", Type.Missing)
celdas.Value = "F. Egreso"
celdas = Hoja.Range("E3", Type.Missing)
celdas.Value = "Total"
celdas.EntireColumn.NumberFormat = "###,###.00"
Dim F As Integer = 4
Dim C As Integer = 4
Dim Fegre As Integer = 4
Dim Cegre As Integer = 4
Dim RowIngre As DataRow
Dim RowEgre As DataRow
'''''''''''
Dim a, b As String
'''''''''
For Each RowIngre In NtablaIngresosdiario.Rows
Hoja.Cells(F, "A") = RowIngre.Item(0)
Hoja.Cells(F, "B") = RowIngre.Item(1)
F = F + 1
Next
Hoja.Cells(F, 1) = "Total Ingreso"
Hoja.Cells(F, 2) = "=suma(B" & (C + 0).ToString & ":B" & (F - 1).ToString & ")"
For Each RowEgre In NtablaEgresosdiario.Rows
Hoja.Cells(Fegre, "D") = RowEgre.Item(0)
Hoja.Cells(Fegre, "E") = RowEgre.Item(1)
Fegre = Fegre + 1
Next
Hoja.Cells(Fegre, 4) = "Total Egreso"
Hoja.Cells(Fegre, 5) = "=Suma(E" & (Cegre + 0).ToString & ":E" & (Fegre - 1).ToString & ")"
'me falta sacar la diferencia como seria el codigo para sacar la diferencia


Libro.printpreview()
Mexel = Nothing
End If
'End If