Probier mal das aus. Deine ganzen "Select's" kannste im Normalfall sein lassen.

Sub Daten_Übertragen_Makro_1()

Dim lZeile As Long
Dim Nummer As String
Dim Priorität As String
Dim Baugruppe As String
Dim Kostenstelle As String
Dim Serialnummer As String
Dim Auftrag As String
Dim Aufragsposition As String
Dim Zusatz As String
Dim Kommissionieren As String
Dim Vorkommissionieren As String
Dim Vorkommissioniert As String
Dim Liefern As String
Dim Fehlteile As String
Dim Bemerkung As String


With Worksheets("Lagerauftrag")
    '.Select
    Nummer = .Range("C2")
    Priorität = .Range("C3")
    Baugruppe = .Range("C5")
    Kostenstelle = .Range("C7")
    Serialnummer = .Range("C9")
    Auftrag = .Range("C11")
    Auftragsposition = .Range("C13")
    Zusatz = .Range("C15")
    Kommissionieren = .Range("C16")
    Vorkommissionieren = .Range("C17")
    Vorkommissioniert = .Range("C18")
    Liefern = .Range("C19")
    Fehlteile = .Range("C20")
    Bemerkung = .Range("C22")

End With

With Worksheets("Übersicht_Lageraufträge")

    If .Range("A1").Offset(1, 0) <> "" Then
       lZeile = .Range("A1").End(xlDown).Row + 1
    Else
        lZeile = 2
    End If

    .Cells(lZeile, 1) = Nummer
    .Cells(lZeile, 2) = Auftrag
    .Cells(lZeile, 3) = Auftragsposition
    .Cells(lZeile, 4) = Baugruppe
    .Cells(lZeile, 5) = Kostenstelle
    .Cells(lZeile, 6) = Serialnummer
    .Cells(lZeile, 7) = Kommissionieren
    .Cells(lZeile, 8) = Vorkommissioniert
    .Cells(lZeile, 9) = Vorkommissionieren
    .Cells(lZeile, 10) = Vorkommissioniert
    .Cells(lZeile, 11) = Liefern
    .Cells(lZeile, 12) = Fehlteile
    .Cells(lZeile, 13) = Bemerkung
    .Cells(lZeile, 14) = Priorität
    .Cells(lZeile, 15) = Zusatz
End With

End Sub