makronun içine veri yapıştırma

[lorenz2015]

merhaba aşağıdaki makronun içine array ile başlayan yere sayılar yapıştırmak istiyorum ama her seferinde hata veriyor, olmuyor sanırım 700 tane veri olduğu için satır aşağı kayıyor dolayısıyla sürekli hata veriyor. ayrı ayrı mı array diye formul yazıp bağlamak lazım bir şekilde bilemedim. excelden direkt copy paste yapıp makronun içine yapıştıramıyorum.
yapıştırmak istediğim sayılar mesela
24156, 23814, 23606, 23591, 23582, 23570, 23545, 23540, 23536, 23528, 23495, 23372, 23328, 23312, 23295, 23290, 23286, 23285, 23282, 23281, 23280, 23275, 23228, 23223, 23221, 23149, 23088, 23072, 23071, 23061, 23048, 23043, 23041, 23039, 23038, 23030, 23029, 23027, 23021, 23019, 23015, 23014, 23012, 23011, 23010, 22991, 22974, 22725, 22708, 22632, 22624, 22622, 22618, 22611, 22606, 22605, 22603, 22599, 22594, 22593, 22590, 22589, 22588, 22586, 22584, 22583, 22582, 22581, 22580, 22579, 22578, 22468, 22463, 22454, 22452, 22440, 22429, 22413, 22405, 22398, 22397, 22396, 22394, 22393, 22385, 22384, 22383, 22382, 22379, 22377, 22376, 22154, 22152, 22135, 22126, 22109, 22105, 22102, 22096, 22085, 22082, 22075, 22071, 22066, 22065, 22064, 22063, 22062, 22055, 22052, 22050, 22049, 22048, 22046, 22043, 22042, 21990, 21988, 21966, 21962, 21958, 21955, 21947, 21942, 21940, 21927, 21915, 21912, 21910, 21902, 21901, 21897, 21894, 21892, 21889, 21207, 21195, 21186, 21172, 21142, 21125, 21124, 21111, 21100, 21099, 21089, 21087, 21083, 21082, 21081, 21080, 21079, 21072, 21070, 21068, 21067, 21064, 21062, 21061, 21060, 21059, 21058, 21057, 21056, 21014, 20993, 20957, 20952, 20950, 20949, 20945, 20943, 20939, 20937, 20926, 20925, 20924, 20917, 20914, 20670, 20613, 20601, 20598, 20597, 20591, 20589, 20588, 20586, 20581, 20579, 20578, 20576, 20575, 20573, 20570, 20560, 20549, 20512, 20481, 20470, 20453, 20428, 20423, 20420, 20416, 20409, 20407, 20403, 20400, 20398, 20396, 20394, 20392, 20390, 20389, 20388, 20385, 20384, 20383, 20382, 20381, 20357, 20342, 20202, 20100, 20098, 20097, 20094, 20080, 20078, 20075, 20073, 20072, 20065, 20064, 20062, 20058, 20057, 20056, 20046, 20033, 20025, 20014, 19994, 19978, 19946, 19934, 19928, 19923, 19919, 19914, 19913, 19908, 19907, 19906, 19904, 19902, 19901, 19899, 19897, 19895, 19894, 19893, 19892, 19890, 19889, 19888, 19886, 19880, 19873, 19867, 19747, 19666, 19649, 19647, 19635, 19631, 19628, 19627, 19625, 19623, 19622, 19621, 19620, 19616, 19613, 19609, 19607, 19606, 19604, 19603, 19602, 19601, 19593, 19552, 19546, 19527, 19519, 19517, 19509, 19500, 19498, 19495, 19493, 19492, 19491, 19489, 19487, 19486, 19485, 19483, 19482, 19481, 19480, 19476, 19475, 19474, 19473, 19472, 19401, 19367, 19364, 19348, 19345, 19338, 19336, 19335, 19331, 19329, 19326, 19317, 19315, 19308, 19307, 19305, 19304, 19302, 19301, 19300, 19292, 19290, 19289, 19288, 19285, 19283, 19282, 19278, 19269, 19248, 19246, 19243, 19238, 19234, 19232, 19231, 19230, 19227, 19225, 19224, 19222, 19221, 19220, 19216, 19214, 18038, 18036, 18033, 18030, 18022, 18019, 18018, 18012, 18000, 17987, 17972, 17962, 17948, 17947, 17944, 17943, 17941, 17940, 17939, 17898, 17883, 17878, 17859, 17856, 17855, 17854, 17853, 17851, 17845, 17844, 17840, 17838, 17835, 17833, 17829, 17828, 17827, 17823, 17821, 17820, 17819, 17817, 17816, 17815, 17814, 17813, 17812, 17682, 17680, 17676, 17666, 17655, 17654, 17646, 17639, 17618, 17617, 17614, 17602, 17598, 17588, 17579, 17573, 17572, 17570, 17568, 17567, 17566, 17564, 17557, 17555, 17554, 17428, 17420, 17349, 17337, 17321, 17306, 17305, 17301, 17299, 17298, 17292, 17291, 17288, 17284, 17283, 17242, 17159, 17153, 17152, 17149, 17144, 17130, 17116, 17113, 17087, 16984, 16979, 16964, 16960, 16952, 16946, 16945, 16942, 16931, 16930, 16928, 16927, 16926, 16923, 16922, 16921, 16920, 16918, 16917, 16916, 16915, 16914, 16913, 16902, 16880, 16879, 16852, 16850, 16836, 16830, 16821, 16819, 16818, 16813, 16812, 16810, 16806, 16710, 16668, 16654, 16632, 16627, 16620, 16619, 16616, 16608, 16602, 16598, 16597, 16596, 16594, 16588, 16584, 16583, 16535, 16508, 16498, 16479, 16471, 16463, 15397, 15380, 15368, 15355, 15344, 15334, 15323, 15311, 15309, 15308, 15306, 15302, 15298, 14847, 14783, 14768, 14762, 14760, 14756, 14751, 14746, 14744, 14736, 14735, 14731, 14728, 14727, 14726, 14725, 14724, 14720, 14719, 14718, 14717, 14716, 14715, 14714, 14373, 14293, 14286, 14272, 14190, 14155, 14154, 14152, 14151, 14137, 14133, 14120, 14119, 14118, 14111, 14056, 14050, 13784, 13781, 13763, 13760, 13665, 13656, 13629, 13608, 13602, 13595, 13457, 13420, 13372, 13364, 13284, 13230, 13223, 13193, 13191, 13185, 13182, 13179, 13178, 13177, 13172, 13171, 13167, 12176, 12157, 11998, 11975, 11970, 11968, 11949, 11761, 11758, 11738, 11737, 11702, 11662, 11661, 11618, 11614, 11612, 11610, 11603, 11599, 11597, 11594, 11591, 11590, 11588, 11585, 11584, 11581, 11580, 11578, 11577, 11576, 11575, 11328, 11315, 11220, 11169, 11153, 11144, 11131, 11124, 11119, 11118, 11114, 10936, 10930, 10899, 10837, 10836, 10833, 10723, 10722, 10706, 10421, 10364, 10351, 10348, 10316, 10309, 10293, 10220, 10198, 10192, 10180, 10167, 10164, 10150, 10148, 10139, 10128, 10127, 10125, 10060, 10059, 10048, 10046, 10039, 10032, 10029, 10026, 10014, 10011, 10003, 10002, 9999, 9996, 9995, 9994, 9991, 9990, 9989, 9985, 9984, 9983, 9982, 9883, 9872, 9842, 9831, 9828, 9820, 9817, 9809, 9806, 9784, 9753, 9747, 9745, 9734, 9733, 9715, 9705, 9311, 9206, 9185, 9171, 9141, 9133, 9072, 9070, 8976, 8955, 8938, 8930, 8922, 8920, 8912, 8911, 8909, 8908, 8907, 8902, 8897, 8894, 8893, 8890, 8889, 8888, 8887, 8885, 8883, 8859, 8820, 8790, 8749, 8738, 8734, 8725, 8528, 8521, 8493, 8486, 8479, 8478, 8475, 8471, 8466, 8438, 8354, 8276, 8237, 8234, 8233, 8227, 8221, 8215, 8210, 8205, 8199, 8152, 8148, 8137, 7973, 7843, 7823, 7818, 7810, 7787, 7758, 7635, 7615, 7584, 7582, 7579, 7578, 7577, 7571, 7569, 7561, 7552, 7550, 7547, 7546, 7541, 7517, 7405, 7280, 7197, 7191, 7176, 7116, 7113, 7093, 7071, 6984, 6975, 6513, 6363, 6348, 6346, 6319, 6318, 6315, 6260, 6237, 6161, 6082, 6048, 5904, 5886, 5881, 5878, 5874, 5869, 5832, 5784, 5783, 5776, 5750, 5560, 4896, 4800, 4773, 4677, 3479, 820, 788, 525, 368, 345, 207,

yardımcı olursanız sevinirim teşekkürler



Sub KOD()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
sil = Array(305, 299, 139, 29, 4)
For Each s In sil
Rows(s).Delete
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[ÖmerBey]

Merhaba, satırda fazla değer olduğu için hata veriyor; aşağıdaki şekilde deneyiniz.

Sub KOD()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

sil = Array(24156, 23814, 23606, 23591, 23582, 23570, 23545, 23540, 23536, 23528, 23495, 23372, 23328, 23312, 23295, 23290, 23286, 23285, 23282, 23281, 23280, 23275, 23228, 23223, 23221, 23149, 23088, 23072, 23071, 23061, 23048, 23043, 23041, 23039, 23038, 23030, 23029, 23027, 23021, 23019, 23015, 23014, 23012, 23011, 23010, 22991, 22974, 22725, 22708, 22632, 22624, 22622, 22618, 22611, 22606, 22605, 22603, 22599, 22594, 22593, 22590, 22589, 22588, 22586, 22584, 22583, 22582, 22581, 22580, 22579, 22578, 22468, 22463, 22454, 22452, 22440, 22429, 22413, 22405, 22398, 22397, 22396, 22394, 22393, 22385, 22384, 22383, 22382, 22379, 22377, 22376, 22154, 22152, 22135, 22126, 22109, 22105, 22102, 22096, 22085, 22082, 22075, 22071, 22066, 22065, 22064, 22063, 22062, 22055, 22052, 22050, 22049, 22048, 22046, 22043, 22042, 21990, 21988, 21966, 21962, 21958, 21955, 21947, 21942, 21940, 21927, 21915, 21912, 21910, 21902, 21901, 21897, 21894, 21892, 21889, 21207, 21195, 21186, 21172, 21142, 21125, 21124, 21111, _
            21100, 21099, 21089, 21087, 21083, 21082, 21081, 21080, 21079, 21072, 21070, 21068, 21067, 21064, 21062, 21061, 21060, 21059, 21058, 21057, 21056, 21014, 20993, 20957, 20952, 20950, 20949, 20945, 20943, 20939, 20937, 20926, 20925, 20924, 20917, 20914, 20670, 20613, 20601, 20598, 20597, 20591, 20589, 20588, 20586, 20581, 20579, 20578, 20576, 20575, 20573, 20570, 20560, 20549, 20512, 20481, 20470, 20453, 20428, 20423, 20420, 20416, 20409, 20407, 20403, 20400, 20398, 20396, 20394, 20392, 20390, 20389, 20388, 20385, 20384, 20383, 20382, 20381, 20357, 20342, 20202, 20100, 20098, 20097, 20094, 20080, 20078, 20075, 20073, 20072, 20065, 20064, 20062, 20058, 20057, 20056, 20046, 20033, 20025, 20014, 19994, 19978, 19946, 19934, 19928, 19923, 19919, 19914, 19913, 19908, 19907, 19906, 19904, 19902, 19901, 19899, 19897, 19895, 19894, 19893, 19892, 19890, 19889, 19888, 19886, 19880, 19873, 19867, 19747, 19666, 19649, 19647, 19635, 19631, 19628, 19627, 19625, 19623, 19622, 19621, 19620, 19616, 19613, _
            19609, 19607, 19606, 19604, 19603, 19602, 19601, 19593, 19552, 19546, 19527, 19519, 19517, 19509, 19500, 19498, 19495, 19493, 19492, 19491, 19489, 19487, 19486, 19485, 19483, 19482, 19481, 19480, 19476, 19475, 19474, 19473, 19472, 19401, 19367, 19364, 19348, 19345, 19338, 19336, 19335, 19331, 19329, 19326, 19317, 19315, 19308, 19307, 19305, 19304, 19302, 19301, 19300, 19292, 19290, 19289, 19288, 19285, 19283, 19282, 19278, 19269, 19248, 19246, 19243, 19238, 19234, 19232, 19231, 19230, 19227, 19225, 19224, 19222, 19221, 19220, 19216, 19214, 18038, 18036, 18033, 18030, 18022, 18019, 18018, 18012, 18000, 17987, 17972, 17962, 17948, 17947, 17944, 17943, 17941, 17940, 17939, 17898, 17883, 17878, 17859, 17856, 17855, 17854, 17853, 17851, 17845, 17844, 17840, 17838, 17835, 17833, 17829, 17828, 17827, 17823, 17821, 17820, 17819, 17817, 17816, 17815, 17814, 17813, 17812, 17682, 17680, 17676, 17666, 17655, 17654, 17646, 17639, 17618, 17617, 17614, 17602, 17598, 17588, 17579, 17573, 17572, 17570, _
            17568, 17567, 17566, 17564, 17557, 17555, 17554, 17428, 17420, 17349, 17337, 17321, 17306, 17305, 17301, 17299, 17298, 17292, 17291, 17288, 17284, 17283, 17242, 17159, 17153, 17152, 17149, 17144, 17130, 17116, 17113, 17087, 16984, 16979, 16964, 16960, 16952, 16946, 16945, 16942, 16931, 16930, 16928, 16927, 16926, 16923, 16922, 16921, 16920, 16918, 16917, 16916, 16915, 16914, 16913, 16902, 16880, 16879, 16852, 16850, 16836, 16830, 16821, 16819, 16818, 16813, 16812, 16810, 16806, 16710, 16668, 16654, 16632, 16627, 16620, 16619, 16616, 16608, 16602, 16598, 16597, 16596, 16594, 16588, 16584, 16583, 16535, 16508, 16498, 16479, 16471, 16463, 15397, 15380, 15368, 15355, 15344, 15334, 15323, 15311, 15309, 15308, 15306, 15302, 15298, 14847, 14783, 14768, 14762, 14760, 14756, 14751, 14746, 14744, 14736, 14735, 14731, 14728, 14727, 14726, 14725, 14724, 14720, 14719, 14718, 14717, 14716, 14715, 14714, 14373, 14293, 14286, 14272, 14190, 14155, 14154, 14152, 14151, 14137, 14133, 14120, 14119, 14118, _
            14111, 14056, 14050, 13784, 13781, 13763, 13760, 13665, 13656, 13629, 13608, 13602, 13595, 13457, 13420, 13372, 13364, 13284, 13230, 13223, 13193, 13191, 13185, 13182, 13179, 13178, 13177, 13172, 13171, 13167, 12176, 12157, 11998, 11975, 11970, 11968, 11949, 11761, 11758, 11738, 11737, 11702, 11662, 11661, 11618, 11614, 11612, 11610, 11603, 11599, 11597, 11594, 11591, 11590, 11588, 11585, 11584, 11581, 11580, 11578, 11577, 11576, 11575, 11328, 11315, 11220, 11169, 11153, 11144, 11131, 11124, 11119, 11118, 11114, 10936, 10930, 10899, 10837, 10836, 10833, 10723, 10722, 10706, 10421, 10364, 10351, 10348, 10316, 10309, 10293, 10220, 10198, 10192, 10180, 10167, 10164, 10150, 10148, 10139, 10128, 10127, 10125, 10060, 10059, 10048, 10046, 10039, 10032, 10029, 10026, 10014, 10011, 10003, 10002, 9999, 9996, 9995, 9994, 9991, 9990, 9989, 9985, 9984, 9983, 9982, 9883, 9872, 9842, 9831, 9828, 9820, 9817, 9809, 9806, 9784, 9753, 9747, 9745, 9734, 9733, 9715, 9705, 9311, 9206, 9185, 9171, 9141, 9133, _
            9072, 9070, 8976, 8955, 8938, 8930, 8922, 8920, 8912, 8911, 8909, 8908, 8907, 8902, 8897, 8894, 8893, 8890, 8889, 8888, 8887, 8885, 8883, 8859, 8820, 8790, 8749, 8738, 8734, 8725, 8528, 8521, 8493, 8486, 8479, 8478, 8475, 8471, 8466, 8438, 8354, 8276, 8237, 8234, 8233, 8227, 8221, 8215, 8210, 8205, 8199, 8152, 8148, 8137, 7973, 7843, 7823, 7818, 7810, 7787, 7758, 7635, 7615, 7584, 7582, 7579, 7578, 7577, 7571, 7569, 7561, 7552, 7550, 7547, 7546, 7541, 7517, 7405, 7280, 7197, 7191, 7176, 7116, 7113, 7093, 7071, 6984, 6975, 6513, 6363, 6348, 6346, 6319, 6318, 6315, 6260, 6237, 6161, 6082, 6048, 5904, 5886, 5881, 5878, 5874, 5869, 5832, 5784, 5783, 5776, 5750, 5560, 4896, 4800, 4773, 4677, 3479, 820, 788, 525, 368, 345, 207)

For Each s In sil
    Rows(s).Delete
Next

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub