İstenilen hücreyi seçmek?

[udentr2002]

Merhaba arkadaşlar belki çok basit bir şey ama ben bildiğim tüm yoları denedim sürekli aynı hatayı veriyor ve visual basic hata koduda 400 bu hata kodunun anlamı nedir?
yapmak istediğim şöyle ;
Format sayfasında a1 den d30'a kadar olan aralığı kopyalayıp bu kopyalananı textbox1 de yazan isimdeki sayfaya gidip a stünunda en son boş hücreye yapıştırması ama 400 diye hata kodu veriyor uyguladığım kodlar uyguladığım kodlar şöyle bunun sebebi nedir acaba?

'Sheets("Format").Range("a1:d30").Copy
Sheets(TextBox1.Text).Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

 

[Orion1]

Aşağıdaki kodlar işiniz görür.

Sheets("Format").Range("a1:d30").Copy
Sheets(TextBox1.Text).Cells(Sheets(TextBox1.Text).Cells(65536, "A").End(xlUp).Row + 1, "A") _
.PasteSpecial
Application.CutCopyMode = False

 

[udentr2002]

Hocam çok teşekkür ederim ellerinize sağlık

 

[Orion1]

Hocam çok teşekkür ederim ellerinize sağlık

Rica ederim.
İyi çalışmalar.