VBA: errore di compilazione - routine troppo grande

Anonimo

per la prima volta, nella mia breve esperienza di vba, mi è capitato di ricevere l'errore in oggetto.

qualcuno avrebbe dei suggerimenti in modo da non stravolgere il lavoro e risolvere questo problema?

di seguito posto il codice.

[quote]

Sub Salva_Ricetta()

Application.ScreenUpdating = False

Sheets("mod_tirelle").Select

Range("b3").Select

tirella = Range("b3")

If tirella = "" Then

art = Range("g3")

artcol = Range("o3")

fondo = Range("g4")

fondocol = Range("o4")

Data = Range("b5")

res = Range("D5")

lm = Range("F5")

ind = Range("h5")

'Distinta1

cdl1 = Range("A6")

spess1 = Range("d7")

comp1 = Range("a8")

comp1a = Range("a10")

peso1a = Range("d10")

comp1b = Range("a11")

peso1b = Range("d11")

comp1c = Range("a12")

peso1c = Range("d12")

comp1d = Range("a13")

peso1d = Range("d13")

comp1e = Range("a14")

peso1e = Range("d14")

comp1f = Range("a15")

peso1f = Range("d15")

comp1g = Range("a16")

peso1g = Range("d16")

comp1h = Range("a17")

peso1h = Range("d17")

comp1i = Range("a18")

peso1i = Range("d18")

comp1l = Range("a19")

peso1l = Range("d19")

comp1m = Range("a20")

peso1m = Range("d20")

comp1n = Range("a21")

peso1n = Range("d21")

comp1o = Range("a22")

peso1o = Range("d22")

comp1p = Range("a23")

peso1p = Range("d23")

comp1q = Range("a24")

peso1q = Range("d24")

'Distinta2

cdl2 = Range("e6")

spess2 = Range("h7")

comp2 = Range("e8")

comp2a = Range("e10")

peso2a = Range("h10")

comp2b = Range("e11")

peso2b = Range("h11")

comp2c = Range("e12")

peso2c = Range("h12")

comp2d = Range("e13")

peso2d = Range("h13")

comp2e = Range("e14")

peso2e = Range("h14")

comp2f = Range("e15")

peso2f = Range("h15")

comp2g = Range("e16")

peso2g = Range("h16")

comp2h = Range("e17")

peso2h = Range("h17")

comp2i = Range("e18")

peso2i = Range("h18")

comp2l = Range("e19")

peso2l = Range("h19")

comp2m = Range("e20")

peso2m = Range("h20")

comp2n = Range("e21")

peso2n = Range("h21")

comp2o = Range("e22")

peso2o = Range("h22")

comp2p = Range("e23")

peso2p = Range("h23")

comp2q = Range("e24")

peso2q = Range("h24")

'Distinta3

cdl3 = Range("i6")

spess3 = Range("l7")

comp3 = Range("i8")

comp3a = Range("i10")

peso3a = Range("l10")

comp3b = Range("i11")

peso3b = Range("l11")

comp3c = Range("i12")

peso3c = Range("l12")

comp3d = Range("i13")

peso3d = Range("l13")

comp3e = Range("i14")

peso3e = Range("l14")

comp3f = Range("i15")

peso3f = Range("l15")

comp3g = Range("i16")

peso3g = Range("l16")

comp3h = Range("i17")

peso3h = Range("l17")

comp3i = Range("i18")

peso3i = Range("l18")

comp3l = Range("i19")

peso3l = Range("l19")

comp3m = Range("i20")

peso3m = Range("l20")

comp3n = Range("i21")

peso3n = Range("l21")

comp3o = Range("i22")

peso3o = Range("l22")

comp3p = Range("i23")

peso3p = Range("l23")

comp3q = Range("i24")

peso3q = Range("l24")

'Distinta4

cdl4 = Range("m6")

spess4 = Range("p7")

comp4 = Range("m8")

comp4a = Range("m10")

peso4a = Range("p10")

comp4b = Range("m11")

peso4b = Range("p11")

comp4c = Range("m12")

peso4c = Range("p12")

comp4d = Range("m13")

peso4d = Range("p13")

comp4e = Range("m14")

peso4e = Range("p14")

comp4f = Range("m15")

peso4f = Range("p15")

comp4g = Range("m16")

peso4g = Range("p16")

comp4h = Range("m17")

peso4h = Range("p17")

comp4i = Range("m18")

peso4i = Range("p18")

comp4l = Range("m19")

peso4l = Range("p19")

comp4m = Range("m20")

peso4m = Range("p20")

comp4n = Range("m21")

peso4n = Range("p21")

comp4o = Range("m22")

peso4o = Range("p22")

comp4p = Range("m23")

peso4p = Range("p23")

comp4q = Range("m24")

peso4q = Range("p24")

'Distinta5

cdl5 = Range("a25")

spess5 = Range("d26")

comp5 = Range("a27")

comp5a = Range("a29")

peso5a = Range("d29")

comp5b = Range("a30")

peso5b = Range("d30")

comp5c = Range("a31")

peso5c = Range("d31")

comp5d = Range("a32")

peso5d = Range("d32")

comp5e = Range("a33")

peso5e = Range("d33")

comp5f = Range("a34")

peso5f = Range("d34")

comp5g = Range("a35")

peso5g = Range("d35")

comp5h = Range("a36")

peso5h = Range("d36")

comp5i = Range("a37")

peso5i = Range("d37")

comp5l = Range("a38")

peso5l = Range("d38")

comp5m = Range("a39")

peso5m = Range("d39")

comp5n = Range("a40")

peso5n = Range("d40")

comp5o = Range("a41")

peso5o = Range("d41")

comp5p = Range("a42")

peso5p = Range("d42")

comp5q = Range("a43")

peso5q = Range("d43")

'Distinta6

cdl6 = Range("e25")

spess6 = Range("h26")

comp6 = Range("e27")

comp6a = Range("e29")

peso6a = Range("h29")

comp6b = Range("e30")

peso6b = Range("h30")

comp6c = Range("e31")

peso6c = Range("h31")

comp6d = Range("e32")

peso6d = Range("h32")

comp6e = Range("e33")

peso6e = Range("h33")

comp6f = Range("e34")

peso6f = Range("h34")

comp6g = Range("e35")

peso6g = Range("h35")

comp6h = Range("e36")

peso6h = Range("h36")

comp6i = Range("e37")

peso6i = Range("h37")

comp6l = Range("e38")

peso6l = Range("h38")

comp6m = Range("e39")

peso6m = Range("h39")

comp6n = Range("e40")

peso6n = Range("h40")

comp6o = Range("e41")

peso6o = Range("h41")

comp6p = Range("e42")

peso6p = Range("h42")

comp6q = Range("e43")

peso6q = Range("h43")

'Distinta7

cdl7 = Range("i25")

spess7 = Range("l26")

comp7 = Range("i27")

comp7a = Range("i29")

peso7a = Range("l29")

comp7b = Range("i30")

peso7b = Range("l30")

comp7c = Range("i31")

peso7c = Range("l31")

comp7d = Range("i32")

peso7d = Range("l32")

comp7e = Range("i33")

peso7e = Range("l33")

comp7f = Range("i34")

peso7f = Range("l34")

comp7g = Range("i35")

peso7g = Range("l35")

comp7h = Range("i36")

peso7h = Range("l36")

comp7i = Range("i37")

peso7i = Range("l37")

comp7l = Range("i38")

peso7l = Range("l38")

comp7m = Range("i39")

peso7m = Range("l39")

comp7n = Range("i40")

peso7n = Range("l40")

comp7o = Range("i41")

peso7o = Range("l41")

comp7p = Range("i42")

peso7p = Range("l42")

comp7q = Range("i43")

peso7q = Range("l43")

'Distinta8

cdl8 = Range("m25")

spess8 = Range("p26")

comp8 = Range("m27")

comp8a = Range("m29")

peso8a = Range("p29")

comp8b = Range("m30")

peso8b = Range("p30")

comp8c = Range("m31")

peso8c = Range("p31")

comp8d = Range("m32")

peso8d = Range("p32")

comp8e = Range("m33")

peso8e = Range("p33")

comp8f = Range("m34")

peso8f = Range("p34")

comp8g = Range("m35")

peso8g = Range("p35")

comp8h = Range("m36")

peso8h = Range("p36")

comp8i = Range("m37")

peso8i = Range("p37")

comp8l = Range("m38")

peso8l = Range("p38")

comp8m = Range("m39")

peso8m = Range("p39")

comp8n = Range("m40")

peso8n = Range("p40")

comp8o = Range("m41")

peso8o = Range("p41")

comp8p = Range("m42")

peso8p = Range("p42")

comp8q = Range("m43")

peso8q = Range("p43")

'copia dati in archivio2

Workbooks.Open Filename:= _

"Q:\M\Mc\MT-T\TL\archivio2.xlsx"

ActiveCell.FormulaR1C1 = ""

Sheets("archivio2").Select

For i = 1 To 65536

If Cells(i, 1) = "" Then

Cells(i, 1) = Cells(i - 1, 1) + 1

Cells(i, 1).Select

tir = Selection