Çözüldü Makronun hücre silerken hata vermesi

[klop01]

Makro kaydetme ile yan yana olmayan hücreleri silmek için makro oluşturdum.
Oluşturulan makro koruması olmayan ve formül içermeyen elle yazılan seçili hücrelerdeki verileri silmek için.
Makroyu butona bağladım ama çalışırken aşağıdaki hatayı verdi.
Çözüm için yardımcı olabilir misiniz?

 

[halit3]

böyle dene

Sub SİL()

Range("DR6:DR205,DT6:DT205,DV6:DW205,DY6:EC205,EF6:EH205,EL6:EL205,EN6:EN205,EP6:EP205,ER6:ES205,EU6:EY205,FB6:FD205,FH6:FH205,FJ6:FJ205,FL6:FL205,FN6:FO205,FQ6:FU205,FX6:FZ205,GD6:GD205,GF6:GF205,GH6:GH205,GJ6:GK205,GM6:GQ205,GT6:GV205,GZ6:GZ205,HB6:HB205").ClearContents
Range("IB6:IC205,IE6:II205,IL6:IN205,IR6:IR205,IT6:IT205,IV6:IV205,IX6:IY205,JA6:JE205,JH6:JJ205,JN6:JN205,JP6:JP205,JR6:JR205,JT6:JU205,KD6:KF205,KJ6:KJ205,KK6:KL205,KN6:KN205,KP6:KQ205,KS6:KW205,KZ6:LB205,LF6:LF205,LH6:LH205,LJ6:LJ205,LL6:LM205,LO6:LS205").ClearContents
Range("FB2:FV2,EF2:EZ2,DJ2:ED2,CN2:DH2,BR2:CL2,AV2:BP2,Z2:AT2,D2:X2,C6:F205,J6:J205,L6:L205,N6:N205,P6:Q205,S6:W205,Z6:AB205,AF6:AF205,AH6:AH205,AJ6:AJ205,AL6:AM205,AO6:AS205,AV6:AX205,BB6:BB205,BD6:BD205,BF6:BF205,BH6:BI205,BK6:BO205,BR6:BT205,BX6:BX205").ClearContents
Range("CN6:CP205,CT6:CT205,CV6:CV205,CX6:CX205,CZ6:DA205,DC6:DG205,DJ6:DL205,DP6:DP205").ClearContents
Range("KZ2:LT2,BZ6:BZ205").ClearContents

End Sub

 

[klop01]

Sayın Halit3,
Öncelikle yardımınız için teşekkürler.

Verdiğiniz kod işlem yaptı fakat birkaç yeri silmedi.
Kod konusuna hakim olamadığımdan düzeltme yapamadım.
Silinmeyen yerler ekteki belgede sarı dolgu rengi ile işaretli.
Vaktiniz müsait olunca bakmanızı rica ediyorum.

WeTransfer: https://we.tl/t-W2vet5VKcv

 

[halit3]

dosyanızı endirmek istediğimde sözleşme koşulları çıkıyor ben bu işe gelemem altın üyeliğiniz var dosyanızı buraya ekleyin

 

[klop01]

Dosyanın boyutu büyük olduğundan eklemeye izin vermemişti.
Diğer sayfalardan silerek 3. iletiye ekledim.

 

[halit3]

KOD:

Sub SİL()

Range("CB6:CB205,CD6:CE205,CG6:CK205").ClearContents
Range("HD6:HD205,HF6:HG205,HI6:HM205").ClearContents
Range("HP6:HR205,HV6:HV205,HX6:HX205,HZ6:HZ205").ClearContents
Range("JW6:KA205").ClearContents

Range("FX2").Value = ""
Range("GT2").Value = ""
Range("HP2").Value = ""
Range("IL2").Value = ""
Range("JH2").Value = ""
Range("KD2").Value = ""
End Sub

 

[klop01]

İşlem yapılıyor.
Çok teşekkür ederim, sağ olun.

 

[halit3]

Teşekkürler iyi çalışmalar