Makrocode-Problem

Sub test()
Application.ScreenUpdating = False
'Dim intRow As Integer, i As Integer
Dim i As Integer
'intRow = ListBox1.ListIndex + 2
For i = 5 To 255 Step 5
Sheets("Speicher").Range(Sheets("Speicher").Cells(3, i - 4), Sheets("Speicher").Cells(3, i)).Copy
Sheets("Tabelle1").Range("A" & i / 5 + 1).PasteSpecial Paste:=xlValues
Next
Zellen_verbinden
Rechnungssumme
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Danke für eure Hilfe Jens