Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim xlApp As New Excel.Application
        Dim xlWB As Excel.Workbook
        Dim xlSht As Excel.Worksheet
        Dim iLastRow, iLastCol As Integer
        Dim arrData(,) As Object
        Dim CleanArray(,) As Object
        Dim iRow, iCol, i As Integer

        xlWB = xlApp.Workbooks.Open("C:\Temp\Test.xlsx") 'укажите путь к вашему файлу Excel
        xlSht = xlWB.Worksheets("Лист1") 'подставьте имя вашего листа с данными
        With xlSht
            iLastRow = .Cells(.Rows.Count, "A").end(-4162).row 'последняя заполненная сторка в столбце А
            iLastCol = .Cells(1, .Columns.Count).end(-4159).column 'последний заполненный столбец в 1-й строке
            arrData = .Range("A1", .Cells(iLastRow, iLastCol)).Value 'берём все данные с листа в массив
        End With

        ReDim CleanArray(arrData.GetUpperBound(0), arrData.GetUpperBound(1)) 'создаём пустой массив

        For iRow = 1 To arrData.GetUpperBound(0)
            If arrData(iRow, 1) <> Nothing Then 'если нет данных в 1-м столбце, то пропускаем всю строку
                If arrData(iRow, 1).ToString.ToLower.Contains("test") = False Then
                    i += 1 'номер стоки в чистом массиве
                    For iCol = 1 To arrData.GetUpperBound(1)
                        CleanArray(i, iCol) = arrData(iRow, iCol) 'перекладываем данны в чистый массив
                    Next iCol
                End If
            End If
        Next iRow

        With xlSht
            .Cells.Clear() 'удаляем все данные с листа
            .Range("A1").Resize(CleanArray.GetUpperBound(0), CleanArray.GetUpperBound(1)).Value = CleanArray
            .Rows(1).delete() 'удаляем пустую 1-ю строку, т.к. наш массив начитался с 0 индекса
            .Columns(1).delete() 'удаляем пустой 1-й столбец, т.к. наш массив начитался с 0 индекса
        End With
        xlWB.Close(SaveChanges:=True) 'сохраняем файл и закрываем его
        xlApp.Quit() 'закрываем Excel
        MessageBox.Show("Обработка файла завершена!", "Конец", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

End Class