Excelde tabloya satır ekleme ve veri kaydetme.

[Mustafa Kabdağlı]

Merhaba arkadaşlar,

Aşaıda ki kodlar ile bir sayfaya veri kaydediyorum ve bu veriler tablo şeklinde.
2010 da herşey normal çalışıyor, fakat 2013 te çalışmıyor - uzun bocalamalar sonucu farkettim ki bu problemin kaynağı verilerin taboya eklenmesi.
Tabloyu kaldırdığım zaman problem kalmıyor, fakat tablo oluşturduğum zaman direk Ecxel kendini kapatıyor. Bu konuda yardımcı olabilir misiniz?

Private Sub CommandButton1_Click()


Son_Dolu_Satir = Sheets("RW_and_QF_input").Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1


Sheets("RW_and_QF_input").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("RW_and_QF_input").Range("A:A")) + 1
Sheets("RW_and_QF_input").Range("D" & Bos_Satir).Value = TextBox3.Text

Şimdiden teşekkürler...