C# / VB.NET - vb-net filtro dati da foglio excel

salve a tutti ultimamente sono un pò troppo presente nel forum.
oggi ho per le mani un altro applicativo.
scopo : da un foglio excel prelevato da un sito che ha molteplici dati,creare un altro foglio con solo alcuni dati quindi filtrati.
esempio :
foglio excel contenente le colonne auto,tipo,modello,targa,marca prendere solo le righe dove la marca corrisponde alla mia chiave di filtro.

Dim excel As Microsoft.Office.Interop.Excel.Application
        Dim wb As Microsoft.Office.Interop.Excel.Workbook
        Dim ws As Microsoft.Office.Interop.Excel.Worksheet
        dim auto as string
        dim tipo as string
        dim modello as string
        dim targa as string
        dim marca as string
     dim riga as integer = 5 



        excel = New Microsoft.Office.Interop.Excel.Application

        wb = excel.Workbooks.Open("c:\Ricerca_Avanzata.xls")
        ws = excel.Worksheets("Foglio1")

        do while  ws.Cells(riga, 5).value = "" 




            Label1.Text = ws.Cells(riga, 4).VALUE 'marca
            Label2.Text = ws.Cells(riga, 3).value 'auto
            Label3.Text = ws.Cells(riga, 9).value 'tipo
            Label4.Text = ws.Cells(riga, 10).value 'modello
            Label5.Text = ws.Cells(riga, 11).value 'targa
     
            ''Label19.Text = riga

                riga = riga + 1
         
            Loop
    
    End Sub

con questo codice scorro il foglio (la prima riga utile è la n.ro 5,le prime 4 sono sempre di intestazione).
però non so come filtrare i dati da scrivere sul nuovo foglio.
googlando non ho trovato molto.
mi sa che ho sbagliato qualcosa a livello logico

ho parzialmente risolto cosi...ma credo sia un pò troppo macchinoso

Dim excel As Microsoft.Office.Interop.Excel.Application
        Dim wb As Microsoft.Office.Interop.Excel.Workbook
        Dim ws As Microsoft.Office.Interop.Excel.Worksheet
        dim auto as string
        dim tipo as string
        dim modello as string
        dim targa as string
        dim marca as string
     dim riga as integer = 5 



        excel = New Microsoft.Office.Interop.Excel.Application

        wb = excel.Workbooks.Open("c:\Ricerca_Avanzata.xls")
        ws = excel.Worksheets("Foglio1")

        do while  ws.Cells(riga, 5).value = "" 

  If UCase(ws.Cells(riga, 5).value) = UCase("FIAT") Then

            Label1.Text = ws.Cells(riga, 4).VALUE 'marca
            Label2.Text = ws.Cells(riga, 3).value 'auto
            Label3.Text = ws.Cells(riga, 9).value 'tipo
            Label4.Text = ws.Cells(riga, 10).value 'modello
            Label5.Text = ws.Cells(riga, 11).value 'targa
     
            riga = riga + 1

            Else
                riga = riga + 1
            End If
         
            Loop
    
    End Sub

esiste un sistema migliore ?