Riješio sam tako da sam za sad uspio dobiti zbroj nakon svih unosa.
Idealno bi bilo da bude na kraju svake stranice pa dok to ne skužim poslužit će i ovako.
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("KONTROLNI")
With ws
'traži prvi prazni red
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row 'broj 1 u ws.Cells(Rows.Count, 1) označava prvu čeliju, ako je ona puna onda ide u novi red
.Cells(iRow, 1).Value = Me.DatumTB.Value
.Cells(iRow, 2).Value = Me.CB1.Value
.Cells(iRow, 3).Value = Me.TemeljnicaTB.Value
.Cells(iRow, 4).Value = Me.OpisKnizenjaTB.Value
.Cells(iRow, 5).Value = Me.DugujeTB.Value
.Cells(iRow, 6).Value = Me.PotrazujeTB.Value
.Cells(iRow, 7).Value = "" 'Prazni podatke u tom redu u polju Saldo
.Cells(iRow + 1, 4).Value = "UKUPNO :"
.Cells(iRow + 1, 5).Value = "=SUBTOTAL(9,E6:E" & iRow & ")"
.Cells(iRow + 1, 6).Value = "=SUBTOTAL(9,F6:F" & iRow & ")"
.Cells(iRow + 1, 7).Value = "=SUM((SUBTOTAL(9,E6:E" & iRow & "))-(SUBTOTAL(9,F6:F" & iRow & ")))"
End With