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