Yazdığım kod hata veriyo

[goQsheen]

aşağıdaki kod çok uzun olduğu için tek satıra sığmıyo alta geçincede bu kodda hata veriyo arkadaşlar. Nasıl bir çözüm bulabilirim ?

Kolay gelsin herkese...

Worksheets("SENET BOŞ SON").Range("A6:G33,A44:G71,A82:G109,A120:G147,A158:G185,A196:G223,A234:G261,A272:G299,A310:G337,A348:G375,A386:G413,A424:G451,A462:G489,A500:G527,A538:G565,A576:G603,A614:G641,A652:G679,A690:G717,A728:G755,A766:G793,A804:G831,A842:G869,A880:G907,A918:G945,A956:G983,A994:G1021,A1032:G1059,A1070:G1097,A1108:G1135,A1146:G1173,A1184:G1211,A1222:G1249,A1260:G1287,A1298:G1325,A1336:G1363,A1374:G1401,A1412:G1439,A1450:G1477,A1488:G1515,A1526:G1553,A1564:G1591,A1602:G1629,A1640:G1667,A1678:G1705,A1716:G1743,A1754:G1781,A1792:G1819,A1830:G1857,A1868:G1895,A1906:G1933,A1944:G1971,A1982:G2009,A2020:G2047,A2058:G2085,A2096:G2123,A2134:G2161,A2172:G2199,A2210:G2237,A2248:G2275,A2286:G2313,A2324:G2351,A2362:G2389,A2400:G2427,A2438:G2465,A2476:G2503,A2514:G2541,A2552:G2579,A2590:G2617,A2628:G2655,A2666:G2693,A2704:G2731,A2742:G2769,A2780:G2807,A2818:G2845,A2856:G2883,A2894:G2921,A2932:G2959,A2970:G2997,A3008:G3035,A3046:G3073,A3084:G3111,A3122:G3149,A3160:G3187,A3198:G3225,A3236:G3263,A3274:G3301,A3312: G3339,A3350: G3377 , A3388: G3415 , A3426: G3453 , A3464: G3491 , A3502: G3529 , A3540: G3567 , A3578: G3605 , A3616: G3643 , A3654: G3681 , A3692: G3719 , A3730: G3757 , A3768: G3795 , A3806: G3833 , A3844: G3871 , A3882: G3909 , A3920: G3947 , A3958: G3985 , A3996: G4023 , A4034: G4061 , A4072: G4099 , A4110: G4137 , A4148: G4175 , A4186: G4213 , A4224: G4251 , A4262: G4289 , A4300: G4327 , A4338: G4365 , A4376: G4403 , A4414: G4441 , A4452: G4479 , A4490: G4517 , A4528: G4555 , A4566: G4593 , A4604: G4631 , A4642: G4669 , A4680: G4707 , A4718: G4745 , A4756: G4783 , A4794: G4821 , A4832: G4859 , A4870: G4897 , A4908: G4935 , A4946: G4973 , A4984: G5011 , A5022: G5049 , A5060: G5087 , A5098: G5125 , A5136: G5163 , A5174: G5201 , A5212: G5239 , A5250: G5277 , A5288: G5315 , A5326: G5353 , A5364: G5391 , A5402: G5429 , A5440: G5467 , A5478: G5505 , A5516: G5543 , A5554: G5581 , A5592: G5619 , A5630: G5657 , A5668: G5695 ").Select

 

[Necdet]

Merhaba,

Makro kaydet ile aşağıdaki kodları elde ettim. Sizde bu kodlara benzetebilirsiniz. Ama sınır nedir bilmiyorum. Denemek gerek.

Sub Makro1()
    Union(Range( _
        "G16:G25,I29:I35,J24:J32,K33:K59,A40:A44,B40:B46,D41:D45,F39:F44,H41:H45,F49:F52,C51:C55,A53,A56:A59,G55:G59,I55:I58,L45:M51,N42:O48,M58:M70,B64:B67,C66:C68,E67,F69:F70,H70:H72,A70:A75,J72:J73,L72:L74,D73:D74,E73:E83,F80:F81,B81:B84,C84:C85,H83:H85" _
        ), Range( _
        "J83:J89,D87:D97,A87:A89,A91:A93,A95:A97,B89:B93,F89:F92,G89:G92,I89:I93,F96:F99,I96:I99,L95:L99,J96:J103,M84:N93,N97:N104,A1,A3:A5,A7:A8,A10:A11,A13:A15,A18:A23,B2:B3,B6:B7,B9:B11,B14:B15,B18:B19,C1:C2,C6:C9,C12:C14,E2:E4,E7:E10,E15:E16" _
        ), Range( _
        "F18:F21,I17:I21,G11:G14,I6:I10,G3:G7,K4:K8,M5:M8,K12:K15,M13:M16,A25:A34,B21:B27,C22:D26,C29:C33,D29:D33,F29:F34" _
        )).Select
End Sub

 

[goQsheen]

Olmadı.
Yapmak istediğim o aralıktaki satırları silmek.. Belki bu biraz daha aydınlatır bilen arkadaşları..