Hier der aktualisierte Code, um Verwirrungen zu vermeiden. Den ersten Code bitte ignorieren :)
Sub Kameraplan()
Dim wordapp As New Word.Application
Dim doc As Word.Document
Dim A1Kamera1 = Anlagen.Range("D4")
Dim A1Kamera2 = Anlagen.Range("D5")
Dim A2Kamera1 = Anlagen.Range("H4")
Dim A3Kamera1 = Anlagen.Range("L4")
Range("A2:A9").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess
Daten.Range("A2") = A1Kamera1
Daten.Range("A3") = A1Kamera2
Daten.Range("A4") = A2Kamera1
Daten.Range("A5") = A3Kamera1
Daten.Range("A6") = ""
Daten.Range("A7") = ""
Daten.Range("A8") = ""
Daten.Range("A9") = ""
'Word starten, befüllen, speichern
wordapp.Visible = True
Set doc = wordapp.Documents.Open("DATEIPFAD")
doc.Bookmarks("Kamera1").Range.Text = Daten.Range("A2")
doc.Bookmarks("Kamera2").Range.Text = Daten.Range("A3")
doc.Bookmarks("Kamera3").Range.Text = Daten.Range("A4")
doc.Bookmarks("Kamera4").Range.Text = Daten.Range("A5")
doc.Bookmarks("Kamera5").Range.Text = Daten.Range("A6")
doc.Bookmarks("Kamera6").Range.Text = Daten.Range("A7")
doc.Bookmarks("Kamera7").Range.Text = Daten.Range("A8")
doc.Bookmarks("Kamera8").Range.Text = Daten.Range("A9")
doc.ExportAsFixedFormat ThisWorkbook.Path & "Kameraplan" & ".pdf", wdExportFormatPDF
doc.Close SaveChanges:=False
wordapp.Quit
End Sub