satırları sütunlara dağıtmak

[sellami2005]

Sub Aktar()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
Satir_Sayaci = s1.Cells(1, 3)
sat = 0
sut = 1
s2.[A1:IV65536].ClearContents 'BU ŞEKİL YAPIN

For i = 1 To s1.Cells(65536, 1).End(xlUp).Row

sat = sat + 1
If sat > Satir_Sayaci Then
sat = 1
sut = sut + 1
End If

s2.Cells(sat, sut) = s1.Cells(i, 1)

Next i
End Sub

Merhaba,
Bu ,sadece sicilleri sayfaya dağıtmakta kullandığım ( sayıları hücrelerine göre dağıtmak ) makroyu sadece sicilin yansına yanında 3 hane daha sütunla birlikte bir sayfaya dağıtmak istiyorum.Örneğin sicil, adı, soyadı ,yaşı v.b. yazacağım parametrelirin hepsi sayı olacak yalnız.Bu bilgileri alta doğru sırayla yazıp, makroyla bir sayfaya dağıtmak mümkün olur mu acaba.