Dim aktivniList As String
    aktivniList = ActiveSheet.Name
    Dim zadnjiRed As Long
    
    zadnjiRed = traziZadnjiRed(aktivniList)
    Dim red As Long
    Dim redTemp As Long
    Dim kuna As Double
    
    redTemp = 1
    Columns(5).NumberFormat = "0.00"
    For red = 1 To zadnjiRed Step 3
        Cells(redTemp, 3).Value = Cells(red, 1).Value
        Cells(redTemp, 4).Value = Cells(red + 1, 1).Value
        
        kuna = CDec(Application.WorksheetFunction.Substitute(Cells(red + 2, 1).Value, " HRK", ""))
        Cells(redTemp, 5).Value = kuna
        redTemp = redTemp + 1
    Next red