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("M" & Rows.Count).End(xlUp).Row
LastrowSonntagsstunden = Sheets(B + 10).Range("Y" & Rows.Count).End(xlUp).Row
LastRowFeiertag = Sheets(B + 10).Range("AL" & Rows.Count).End(xlUp).Row
LastRowSchichtführer = Sheets(B + 10).Range("BL" & 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