Vielleicht wegen AUS falsch ist und es fehlt End Sub
oder mal Debuggen durch führen
Sub Activate
Rows ("3:" & Cells (Rows.Count, 1).End (xlUp).Row). Copy
Workbooks (wbName). Activate
lastRow1 = Cells (Rows.Count, 1).End(xlUp).Row + 1
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = "Nicht-Aktive T"
Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Font.Bold = True
Rows(Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False,Transpose:=False
End Sub