Warum funktioniert dieses Makro nicht?

Sub fkt_bericht_erstellen()
Dim i, fkt_nr, j As Integer
fkt_nr = InputBox("Funktionsnummer?", "Bericht zu Funktionsnummer", 41)
If fkt_nr = 0 Then
MsgBox ("0 ist keine gültige Funktionsnummer")
Exit Sub
End If
j = 54 'ab Zeile 54 einfügen
For i = 6 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 5).Value = fkt_nr Then
MsgBox "if-teil", vbInformation 'Debug-Info
Range(Cells(i, "A"), Cells(i, "F")).Copy Sheets("Bericht").Range(Cells(j, "A"), Cells(j, "F"))
j = j + 1
End If
Next i
MsgBox i, vbInformation, "Inhalt von I" 'debug info
MsgBox j, vbInformation, "Inhalt von J" 'debug info
End Sub