Zelle verbinden

Hier das Makro

Sub AutoForm1_BeiKlick()
Dim varPB As Variant
Dim iPage As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
iPage = 1
Do While IsError(varPB) = False
varPB = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & iPage & ")")
If IsError(varPB) Then
Exit Sub
Else
Cells(varPB - 1, 4) = "Übertrag"
Cells(varPB - 1, 6) = Application.Sum(Range(Cells(1, 7), _
Cells(varPB - 1, 7)))
Cells(varPB + 1, 4) = "Übertrag"
Cells(varPB + 1, 6) = Application.Sum(Range(Cells(1, 7), _
Cells(varPB - 1, 7)))
End If
iPage = iPage + 1

Loop
End Sub

ich hoffe das ich mich verständlich ausgedrückt habe

MfG
Ralf