Sub PDF()
Dim LastRowName As Integer
Dim B As Integer
Dim i As Integer
Dim LastRowSort As Integer
Dim LastRowFeiertag As Integer
Dim LastRowArbeitsstundenUndNacht As Integer
Dim LastrowSamstagsstunden As Integer
Dim LastrowSonntagsstunden As Integer
Dim LastRowSchichtführer As Integer
Dim LastRowPDF As Integer
Sheets(3).Rows("1:200").RowHeight = 10
LastRowName = Tabelle2.Range("A" & Rows.Count).End(xlUp).Row
B = 2
LastRowArbeitsstundenUndNacht = Sheets(B + 10).Range("M" & Rows.Count).End(xlUp).Row
LastrowSamstagsstunden = Sheets(B + 10).Range("Y" & Rows.Count).End(xlUp).Row
LastRowFeiertag = Sheets(B + 10).Range("AK" & Rows.Count).End(xlUp).Row
LastRowFeiertag = Sheets(B + 10).Range("AW" & Rows.Count).End(xlUp).Row
LastRowSchichtführer = Sheets(B + 10).Range("BI" & Rows.Count).End(xlUp).Row
LastRowPDF = Sheets(3).Range("A" & Rows.Count).End(xlUp).Row
Sheets(B + 10).Range(Cells(2, 13), Cells(LastRowArbeitsstundenUndNacht, 23)).Copy Sheets(3).Cells(LastRowPDF, 1).Value
LastRowPDF = Sheets(3).Range("A" & Rows.Count).End(xlUp).Row
End Sub