Kapalıdan Koşullu Veri Alma

[Believing]

Sayın Uzman arkadaşlar,

Aşağıdaki kod ile kapalı çalışma kitabının "A1:K750" aralığından veri alıyorum.
Kapalı kitap farklı bir programdan alınan veri olduğu için her sayfa için bir başlık bulunmaktadır.
İlk başlığın bilgilerini alarak, "A1:K750" aralığında metinsen ifadeler içeren satırları silerek verileri transfer etmek istiyorum.
Bu koşulları sağlamak için mevcut kodu nasıl revize etmeliyim?

Saygılarımla,

Sub Verlileri_Guncelle()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    
    Dim con As Object, rs As Object
    Dim dosya As String
    dosya = ThisWorkbook.Path & "\Database_SANAL-444.xls"
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    With Sayfa9
        .Range("A5:K999").ClearContents
        con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & dosya & _
        ";extended properties=""Excel 12.0;hdr=no"""
        rs.Open "select * from [Sheet1$]", con, 1, 1
            If rs.RecordCount > 0 Then
                .Range("A5").CopyFromRecordset rs
            End If
        rs.Close: con.Close
      
    End With
    Sayfa9.Select
    Set rs = Nothing: Set con = Nothing
    dosya = vbNullString
    

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

MsgBox "VERİLERİNİZ GÜNCELLENMİŞTİR.", vbInformation

End Sub