Sub selcuk_doldur()
For i = 2 To Range("D65000").End(3).Row Step 2
Cells(i - 1, 7) = Cells(i, 4)
Cells(i - 1, 8) = Cells(i, 5)
Cells(i - 1, 9) = Cells(i, 6)
Cells(i - 1, 14) = Cells(i, 10)
Cells(i - 1, 15) = Cells(i, 11)
Cells(i - 1, 16) = Cells(i, 12)
Cells(i - 1, 17) = Cells(i, 13)
Next
End Sub