Sub Dağıt()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
Sheets(i).Delete
Next
Set s = Sheets("Sayfa1")
c1 = Columns(1).ColumnWidth
c2 = Columns(2).ColumnWidth
c3 = Columns(3).ColumnWidth
c4 = Columns(4).ColumnWidth
c5 = Columns(5).ColumnWidth
a = 2
For i = 1 To 16
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = i
s.Range("A" & a & ":E" & a + 15).Copy Range("A2")
s.Range("A1:E1").Copy Range("A1")
Columns(1).ColumnWidth = c1
Columns(2).ColumnWidth = c2
Columns(3).ColumnWidth = c3
Columns(4).ColumnWidth = c4
Columns(5).ColumnWidth = c5
a = a + 16
Next
s.Select
Set s = Nothing
End Sub
Kodu deneyiniz.