Worksheets(
"Ausgabe"
).
Select
Range(
"B2:B100,C2:C100,D2:D100,E2:E100,F2:F100,G2:G100"
).Clear
ActiveCell.Offset(5, -3).Range(
"A1"
).
Select
ActiveCell.Offset(-1, 1).Range(
"A1"
).
Select
ActiveCell.Offset(-3, 2).Range(
"A1"
).
Select
Sheets(
"PartNumber"
).
Select