Sub PDF()
Dim LastRowName As Integer
Dim B As Long, i As Long, LastRowSort As Long
Dim LastRowFeiertag As Long, LastRowArbeitsstundenUndNacht As Long
Dim LastrowSamstagsstunden As Long, LastrowSonntagsstunden As Long
Dim LastRowSchichtführer As Long
B = 2
With Sheets(3)
.Rows("1:200").RowHeight = 10
End With
With Tabelle2
LastRowName = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
With Sheets(B + 10)
LastRowArbeitsstundenUndNacht = .Cells(.Rows.Count, "B").End(xlUp).Row
LastrowSamstagsstunden = .Cells(.Rows.Count, "Y").End(xlUp).Row
LastRowFeiertag = .Cells(.Rows.Count, "AK").End(xlUp).Row
LastRowFeiertag = .Cells(.Rows.Count, "AW").End(xlUp).Row
LastRowSchichtführer = .Cells(.Rows.Count, "BI").End(xlUp).Row
.Range(.Cells(2, 13), .Cells(LastRowArbeitsstundenUndNacht, 23)).Copy
Sheets(3).Cells(Sheets(3).Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub