Hjælp med vba kode der kopiere

Hej eksperter!

Jeg har brug for noget hjælp igen.
Jeg har fået samlet denne her kode.

Sub GemData()
'Afsnit 1.
Application.ScreenUpdating = False
    Sheets("Database").Range("A2, B2, C2, D2, E2, F2, G2, H2, I2, J2, K2, L2, M2").Copy
    Sheets("DataBase").Activate
   
    Range("A10000:M100000").End(xlUp).Offset(1, 0).Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Application.CutCopyMode = False
    Sheets("DataBase").Activate

'Afsnit 2.
    Sheets("DataBase").Range("N3").Copy
    Sheets("DataBase").Activate
    Range("N10000").End(xlUp).Offset(1, 0).Activate
    ActiveCell.PasteSpecial

    Application.CutCopyMode = False
    Sheets("DataBase").Activate
    Range("N3").Select
Application.ScreenUpdating = True
End Sub

Min kode virker, men skal ha' noget mere ind i den, dog vil den ikke hvad jeg vil.

vi snakker om "afsnit 1".

fra A2:M2 er der 0 eller nogle tal.

1). Selve koden skal ignorer "0" i cellerne så den ikke kopiere "0".

2). Koden skal lægge nogle tal sammen, men må kun lægges sammen 2 gange! når alle felter er udfyldt fra A2:M2 skal den springe ned til næste ligne og starte.

3). Den skal blive i samme ligne indtil alle felter er fyldt ud.
Som den er nu. Så hvis den kopiere noget fra A2:B2 og så kommer der nogle nye tal i C2:M2 så går den en ligne ned. (må den ikke)

4). M2 skal altid springe en over. Så når de andre kopieres fks. fra A2:B2 til A3:B3, så skal M starte med at kopiere fra M3 til M4. osv.

Kopi af regnearket kan sendes.

takker på forhånd!