Sub Veriler()
Application.ScreenUpdating = False
Set d = Sheets("Data")
sınıf = InputBox("Şube adı giriniz.", "Uyarı")
For i = 1 To 80
x = i * 22 - 20
If d.Cells(x, 4) = "" Then GoTo 20
If WorksheetFunction.CountIf(Range("E1:E10000"), d.Cells(x + 7, 4)) > 0 Then GoTo 10
sat = Cells(Rows.Count, 2).End(3).Row + 1
Cells(sat, 2) = sat - 2
Cells(sat, 3) = sınıf
Cells(sat, 4) = d.Cells(x, 4).Value
Cells(sat, 5) = d.Cells(x + 7, 4).Value
Cells(sat, 6) = d.Cells(x + 1, 4).Value
Cells(sat, 7) = d.Cells(x + 2, 4).Value
Cells(sat, 8) = d.Cells(x + 3, 4).Value
Cells(sat, 9) = d.Cells(x + 4, 4).Value
Cells(sat, 10) = d.Cells(x + 5, 4).Value
Cells(sat, 11) = d.Cells(x + 7, 11).Value
Cells(sat, 12) = d.Cells(x + 8, 11).Value
Cells(sat, 13) = d.Cells(x + 9, 11).Value
10
Next
20
Range("CC3:CM1000") = Range("C3:M1000").Value
Range("CC3:CM1000").Sort Range("CD3"), 1
Range("CC3:CM1000").Sort Range("CC3"), 1
Range("C3:M1000") = Range("CC3:CM1000").Value
Range("CC3:CM1000") = ""
End Sub