Sub OpenCsvFile()
    Dim FilePath As String
    FilePath = "C:\csvfile.csv"
    Open FilePath For Input As #1
        redBrojac = 0
        Do Until EOF(1)
            Line Input #1, linijaFile
            linijaPodaci = Split(linijaFile, ",")
            If redBrojac > 2 And redBrojac < 6 Then 'ucitaj od 3 do 5 reda
                 'samo 2 i 3 kolonu
                'ActiveCell.Offset(redBrojac, 0).Value = linijaPodaci(2)
                ActiveCell.Offset(redBrojac, 1).Value = linijaPodaci(1)
                ActiveCell.Offset(redBrojac, 2).Value = linijaPodaci(0)
            End If
            redBrojac = redBrojac + 1
        Loop
    Close #1
End Sub