Das muss ja einen Fehler verursachen. Überleg doch mal selber. Wenn du in wksTab2.Range("B7") einen Text reinschreibst, und diesen dann später an die Variable intAnzahl übergibst die eine ganze Zahl erwartet, dann kann VBA damit nix anfangen. Wie willst du auch einen Text verwenden um eine bestimmte Anzahl von Ausdrucken zu generieren? Da passt was nicht zusammen.

Wenn du jedoch den Inhalt von B7 erst nach der Zuweisung von intAnzahl neu generierst hättest du eine Chance, den Code von Ralf zu verwenden.

Da sich der Beginn von intZeilen auch mal verändern kann, würde ich vor Zeile 7 (also nach For) eine neue Zeile einfügen die einen zusätzlichen Zähler hochzählt. z.B. i = i + 1
Diesen fügst du dann nach der Zuweisung von intAnzahl aber noch vor dem Ausdruck als neue Zeile hinzu:
wksTab2.Range("B7") = i & " von " & intAnzahl

Gruß Mr. K.