Ako mislis na upis sortiranog rezultata, bez praznih polja izmedju onda bi ceo kod mogao izgledati ovako
Code:
Sub Sortiraj_Click()
Dim Podatak As Variant
Dim Kolona As String
Dim i As Integer
If Selection.Rows.Count < 2 Then
MsgBox "Niste selektovali kolonu iz koje se sortiraju podaci!", vbInformation, "Greska"
Exit Sub
End If
Kolona = InputBox("Uneti redni broj kolone u kojoj ispisati podatke:", "Izbor kolone")
i = CInt(InputBox("Uneti od kog reda treba poceti ispis podatatka:", "Pocetak ispisa podataka"))
If i < 1 Then: i = 1
For Each Podatak In Selection
If Podatak <> "" Then
Cells(i, CInt(Kolona)) = Podatak
i = i + 1
End If
Next
End Sub
Sada sam ti u kodu ubacio da kada kliknes da dugme Sortiraj da mozes odabrati i od kog reda zelis da ti pocne ispis, ako ne uneses nijedan broj ili kliknes na Cancle bice odabran prvi red.