Problemer med Procedure to large. 2 i et spørgsmål.

Jeg har siddet og lavet lidt noob koding i excel/macro.. Mit problem er at jeg har lavet så meget If- data overflytning at jeg nu får procedure to large.

De macroer jeg bruger er disse.
If Range("A10").Value > 0 Then
    b2 = 57
    b1 = b2 - 20
    Do While sr > b1
      b1 = b2 - 20
      If sr > b1 And sr < (b2 + 1) Then
        sr = b2
        start = "A" & sr
        Sheets("logo").Select
        Range("A1:D2").Select
        Selection.Copy
        Sheets("Tilbud").Select
        Range(start).Select
        ActiveSheet.Paste
        sr = sr + 3
        start = "A" & sr
      End If
      Sheets("Startside").Select
      b2 = b2 + 56
    Loop
    antal = Range("A10").Value
    Sheets("Data-Kedler").Select
    Range("A143:D162").Select
    Selection.Copy
    Sheets("Tilbud").Select
    Range(start).Select
    ActiveSheet.Paste
    sr = sr + 1
    start = "A" & sr
    Range(start).Value = antal
    sr = sr + 19
    start = "A" & sr
    Sheets("Startside").Select
End If


------------------------------------------
Er der en måde at man kan fortsætte med at skrive ovenstående macroer, men i en anden ? Så den jeg  har nu måske åbner en nr 2 macro som fortsætter hvor den anden ikke kan følge med (tror der er små 5-6k linier)

Nr 2. spørgsmål

I de macroer jeg kører med der kopire de fra et ark til et andet. Er det muligt at kopiere en celle som laver en SUm værdi?

Når jeg prøver at kopiere den så har den bare de samme sumværdier som før kopieringen. Det vil sige at den måske har SUM(D1:400;D450:D800) Men dem jeg har kopieret indtil det nye ark ligger i f.eks. D400-D450.. Så laver den ikke autosum af de værdier jeg har valgt... Ved det lyder lidt kryptisk, men håber det kan hjælpe ellers kan jeg prøve at besvare alle relavante spørgsmål dertil.