Sıralı olmayan seçimleri sıralı hale getirme

[Thecoco]

Ekte örneğini verdiğim sorum şudur...

1
2
3
4
5

şeklinde aynı sütunda satırlarım var. Checkboxlar ile sadece seçtiğim hücrelerin, belirlediğim başka bir sütunda sıralı halde gözükmesini nasıl sağlayabilirim?

Şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
aa = [b65536].End(3).Row
bb = 1
Columns("G:G").ClearContents

For i = 2 To aa
If Cells(i, "b") = True Then
Cells(bb, "g") = Cells(i, "a")
bb = bb + 1
Else
End If
Next i

Columns("G:G").Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

. . .