I tryed it,but it dosent help.

sh.Range("A" & FirstRow + off, sh.Range("AC" & FirstRow + off)).Copy_
Destination:=NewSh.Range("A2").Offset(NewOff, 0)
NewOff = NewOff + 1
off = off + 1
Else
Set NewSh = Worksheets.Add(after:=Sheets(Sheets.Count))
NewSh.Name = StartCell.Offset(off, 0).Value
sh.Range("A" & FirstRow + off, sh.Range("AC" & FirstRow + off)).Copy_
Destination:=NewSh.Range("A2").Offset(NewOff, 0)
shName = NewSh.Name

Have I changed it right ?