Kapalı Dosyadan Şartlı Veri Almak

[ormann]

İyi günler;
Ekli dosyada anasayfa üzerindeki userform1 de veri al butonu ile başka bir kapalı dosyadaki KAYIT sayfasındaki seçili alandaki verileri kod aşağıdaki kod ile KAYIT sayfasına alınıyor.Fakat benim yapmak istediğim seçili alanlar değilde ,anadosya daki kayıt sayfasında E sütünun da aynı veriden var ise almayacak.Yok ise en alt satıra alacak.Eğer alınacak dosyanın sayfa adı farklı ise dosya uygun değil uyarısı vererek iptal edecek.Veriler alındıktan sonra ise kaç .....adet veri alındı uyarısı verecek.Yardımlarınızı bekliyorum.Saygılar.
https://dosya.co/zmpx83m098vc/dosyalar.rar.html

Private Sub CommandButton1_Click()
On Error Resume Next
    Dim XDosya As Workbook
    Dim xAlan As Range
       Dim Time1 As Date, Time2 As Date
    Dim timeElapsed As String, myFile As String
      
     Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası,*.xls; *.xlsb; *.xlsx; *.xlsm", MultiSelect:=True)
    If Dosya(1) = Empty Then
        Time1 = Now
        MsgBox "Lütfen önce Dosya seçiniz.", vbExclamation
        Exit Sub
    End If    
      Set ac = Workbooks.Open(Dosya(1))    
    Set xAlan = ac.Sheets("KAYIT").Range("A5:R5000")
    ThisWorkbook.Activate
    ThisWorkbook.Sheets("KAYIT").Range("A5:R5000") = xAlan.Value
    
    Application.DisplayAlerts = False
        xAlan.Parent.Parent.Close
    Application.DisplayAlerts = True 
    Time2 = Now
    timeElapsed = Format(Time2 - Time1, "ss") & " Saniye"
    MsgBox "İşlem süresi: " & timeElapsed, vbInformation

End Sub