Sub test()
Dim Tablo, i As Long, Wkb As Workbook
Tablo = ThisWorkbook.Sheets("Base").[A1].CurrentRegion.Value
Set Wkb = Workbooks.Add
For i = Wkb.Sheets.Count To 2 Step -1
Application.DisplayAlerts = False
Wkb.Sheets(i).Delete
Application.DisplayAlerts = True
Next i
For i = 2 To UBound(Tablo, 1)
With Wkb.Sheets(i - 1)
If Tablo(i, 1) <> "" Then
.Name = Tablo(i, 1)
.[G1].Value = Tablo(i, 1)
.[G2].Value = Tablo(i, 2)
.[G3].Value = Tablo(i, 3)
.[G4].Value = Tablo(i, 4)
.[G5].Value = Tablo(i, 5)
.[G6].Value = Tablo(i, 6)
.[G7].Value = Tablo(i, 7)
.[G8].Value = Tablo(i, 8)
.[C1].Value = Tablo(i, 9)
.[C2].Value = Tablo(i, 10)
.[B11].Value = Tablo(i, 11)
.[B12].Value = Tablo(i, 12)
.[B13].Value = Tablo(i, 13)
.[D13].Value = Tablo(i, 14)
.[D14].Value = Tablo(i, 15)
.[D15].Value = Tablo(i, 16)
.[D16].Value = Tablo(i, 17)
.[D19].Value = Tablo(i, 18)
.[D20].Value = Tablo(i, 19)
.[D21].Value = Tablo(i, 20)
.[D22].Value = Tablo(i, 21)
.[D24].Value = Tablo(i, 22)
.[D25].Value = Tablo(i, 23)
.[D26].Value = Tablo(i, 24)
.[D27].Value = Tablo(i, 25)
.[D31].Value = Tablo(i, 26)
.[D32].Value = Tablo(i, 27)
.[D33].Value = Tablo(i, 28)
.[D34].Value = Tablo(i, 29)
.[D37].Value = Tablo(i, 30)
.[D38].Value = Tablo(i, 31)
.[D39].Value = Tablo(i, 32)
.[D40].Value = Tablo(i, 33)
.[D44].Value = Tablo(i, 34)
.[D45].Value = Tablo(i, 35)
.[D46].Value = Tablo(i, 36)
.[D47].Value = Tablo(i, 37)
.[D48].Value = Tablo(i, 38)
.[D51].Value = Tablo(i, 39)
.[D52].Value = Tablo(i, 40)
.[D53].Value = Tablo(i, 41)
.[D54].Value = Tablo(i, 42)
.[D55].Value = Tablo(i, 43)
.[D58].Value = Tablo(i, 44)
.[D59].Value = Tablo(i, 45)
.[D60].Value = Tablo(i, 46)
.[D61].Value = Tablo(i, 47)
.[D62].Value = Tablo(i, 48)
.[D65].Value = Tablo(i, 49)
.[D66].Value = Tablo(i, 50)
.[D67].Value = Tablo(i, 51)
.[D68].Value = Tablo(i, 52)
.[D69].Value = Tablo(i, 53)
.[D72].Value = Tablo(i, 54)
.[D73].Value = Tablo(i, 55)
.[D74].Value = Tablo(i, 56)
.[D75].Value = Tablo(i, 57)
.[D76].Value = Tablo(i, 58)
.[B78].Value = Tablo(i, 59)
.[B79].Value = Tablo(i, 60)
.[B80].Value = Tablo(i, 61)
.[B81].Value = Tablo(i, 62)
End If
End With
If i < UBound(Tablo, 1) Then Wkb.Sheets.Add After:=Wkb.Sheets(Wkb.Sheets.Count)
Next i
End Sub