sizde neden öyle bir soruna sebep oldu bilmiyorum, kendi denemelerimde 5-6 Excel dosyasını sorunsuz ekledi

SonSatir = WbHedef.Cells(WbHedef.Rows.Count, "B").End(xlUp).Offset(1).Row

        If SonSatir = 3 Then x = 4 Else x = SonSatir

kodları B sütununu kontrol edip yeni verileri oraya ekliyor
eğer Excel dosyalarınızda "BİLGİSAYAR NO" alanı girilmemişse ve bu nedenle "B" sutunu boş ise sorun bundan kaynaklanıyor olabilir