Sayfaya Şarta Uyan Verileri Sırası İle Kaydetme

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile Kaydetme işlemini Yukarıdan aşağı değil de, aşağıdan yukarı yapıyor.
Veri Sayfasındaki verilerimin sıralaması

SÜLEYMAN
AHMED
MEHMET

Şarta uyan verileri

MEHMET
AHMED
SÜLEYMAN

Diye kaydediyor. Yardımcı olursanız çok sevinirim.



For i2 = 1 To sayi
set v=Sheets("veri")
For s = 2 To v.Cells(Rows.Count, "b").End(xlUp).Row
If v.Range("f" & s).Value = i2 Then
adi = v.Range("b" & s).Value
tc = v.Range("c" & s).Value
End If
Next s

Sheets("TYPÇ").Select
Range("c13").Select
ActiveCell.Offset(0, 0).EntireRow.Insert
Range("c13").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell.Offset(0, -1).Value = tc
ActiveCell.Offset(0, 0).Value = adi
ActiveCell.Offset(0, 33).Value = "x"

For i1 = 1 To 34
ActiveCell.Offset(0, i1 - 3).Borders.LineStyle = 1
Next i1
Next i2