Zeilen in Arbeitsblatt autom. auffüllen, damit eine durch 12 teilbare Anzahl entsteht

[snb]

Code:

Sub M_snb()
  For Each sh In Sheets
    sh.Rows(1).Delete
    With sh.Columns(1).SpecialCells(2)
      .Resize(.Count + 12 - .Count Mod 12).SpecialCells(4) = sh.Name
    End With
  Next
End Sub