Hallo Zusammen kann einer mir vielleicht den Code erklären, bzw. sagen was der Code macht
Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(109,R[2]C:R[9999]C)"
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With

test = InputBox("4")
If test = "" Then
GoTo EndPrint
Else