Makro addiert nicht.....

Sub Zahlen__rein()
Const Eingabe = "Artikel Statistik.xls"
Const Ausgabe = "Artikel Statistik.xls"
Dim KdNr As String
Dim Artikel As String
Dim l As Long
Dim Betrag As String
Dim Monat As String
Dim summe As Long
'Bildschirmaktuaklisierung ausschalten
Application.ScreenUpdating = False
Sheets("Admindaten").Activate
Monat = Range("o8").Value
Sheets("download").Activate
Range("a2").Select
For l = 1 To ActiveSheet.UsedRange.Rows.Count
'Daten in Variablen schreiben
KdNr = ActiveCell.Value
Artikel = ActiveCell.Offset(0, 1).Value
Betrag = ActiveCell.Offset(0, 2).Value
'Ausgabedatei aktivieren und suchen
summe = 0
Sheets("Datenbank").Activate
Columns("A:A").Select
On Error GoTo fehlerm
Selection.Find(What:=KdNr, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 1).Select  'Auf Artikel-Spalte positionieren
Do While ActiveCell.Value <> ""
If ActiveCell.Value = Artikel Then summe = summe + ActiveCell.Offset(0, Monat + 1).Value = Betrag: Exit Do
ActiveCell.Offset(1, 0).Select
Loop
Sheets("download").Activate
ActiveCell.Offset(1, 0).Select
Next l
'Bildschirmaktualisierung wieder einschalten
Application.ScreenUpdating = True
Exit Sub
fehlerm:
MsgBox "" & Artikel & " nicht gefunden!" & Chr(13) _
& " bitte Artikel einfügen und Makro erneut starten!"
End Sub