wieso läuft das VBA nur bei mir, und sonst nicht??

Sub Neue_Position()
Call BlattschutzAus1
BDProdukt = Sheets("Auftrag_Kopierzentrale").Cells(19, 2).Value
BDFormat = Sheets("Auftrag_Kopierzentrale").Cells(19, 15).Value
BDBlaetter = Sheets("Auftrag_Kopierzentrale").Cells(19, 18).Value
BDMenge = Sheets("Auftrag_Kopierzentrale").Cells(19, 20).Value
BDEinzel = Sheets("Auftrag_Kopierzentrale").Cells(19, 24).Value
BDGesamt = Sheets("Auftrag_Kopierzentrale").Cells(19, 30).Value
i = 2
firstLine = 24
searchDB = True
nextFirstline = True
'Suche die nächste freie Zeile und ggf. den Serverzähler
Do While nextFirstline
firstLine = firstLine + 1
SearchServer = Sheets("Auftrag_Kopierzentrale").Cells(firstLine, 3).Value
If Sheets("Auftrag_Kopierzentrale").Cells(firstLine, 3).Value = "" Then
nextFirstline = False
End If
Loop
If firstLine > 32 Then
MsgBox ("keine weiteren Einträge möglich")
GoTo Ende
Else
End If
If (BDEinzel = 0) Then
MsgBox ("Dieses Produkt hat in dieser Konfiguration keinen Preis. Bitte wählen Sie eine mö  _
_
gliche Produktzusammensetzung aus")
GoTo Ende
End If
If (BDProdukt = "" Or BDFormat = "" Or BDMenge = "") Then
MsgBox ("Bitte Produkt auswählen, Format definieren, und eine Menge angeben!")
Else
Sheets("Auftrag_Kopierzentrale").Cells(firstLine, 3).Value = BDProdukt
Sheets("Auftrag_Kopierzentrale").Cells(firstLine, 15).Value = BDFormat
Sheets("Auftrag_Kopierzentrale").Cells(firstLine, 18).Value = BDBlaetter
Sheets("Auftrag_Kopierzentrale").Cells(firstLine, 20).Value = BDMenge
Sheets("Auftrag_Kopierzentrale").Cells(firstLine, 24).Value = BDEinzel
Sheets("Auftrag_Kopierzentrale").Cells(firstLine, 30).Value = BDGesamt
firstLine = firstLine + 1
End If
Ende:
Worksheets("Auftrag_Kopierzentrale").Activate
Call BlattschutzAn1
End Sub