Visual basic in Excel

Zdraveite!
Moje li niakoi da mi kaje kak s Visual basic editor v excel da mu kaja da mi mesti text na druga stranica. Naprimer v parvata colona imam deset pati edno i sashto ime, a sled nego drugo ime i iskam drugoto ime da zapochva na nova stranica. I taka za vsiako novo ime.
Mnogo shte sam blagodaren ako mi pomognete.
Blagodaria predvaritelno.

Sub movename()
Dim ws As Worksheet
Dim c As Range
Dim c1 As Range
Set c = Range("A1")

c.Select
Selection.Copy
Set ws = Worksheets("Sheet2")
ws.Activate
For j = 1 To 15
If Range("A" & j).Value <> "" Then

Else
Range("A" & j).Select
Exit For
End If
Next j
Selection.PasteSpecial Paste:=xlPasteValues

Worksheets("Sheet1").Activate
For i = 2 To 15
If Range("A" & i) = Range("A" & i - 1) Then
Else
Set c1 = Range("A" & i)
c1.Select
Selection.Copy
Set ws = Worksheets("Sheet2")
ws.Activate
For j = 1 To 15
If Range("A" & j).Value <> "" Then

Else
Range("A" & j).Select
Exit For
End If

Next j
Selection.PasteSpecial Paste:=xlPasteValues
End If
Worksheets("Sheet1").Activate
Next i



End Sub

Thanks!

Виждам, че тук има разбиращи. И аз моля за помощ. Искам да манипулирам номерата на страниците при форматиране, като номера на първата страница от някой sheet да зависи от последния номер например на предния sheet. Ш.е., по-просто казано, ако на sheet1 имам 5 страници при съответното форватиране, пъвия номер на страница на sheet2 да бъде 6.
Не мога да намеря откъде и как да взема последния номер при pagesetup. Някъде мернах нещо като TotalNumberOfPages, но не можа да свърши ралота!
Предварително благодаря!