If Not Intersect(Target, Range

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
For i = 5 To 26
If Cells(i, 2) = Cells(ActiveCell.Row, 2) Then
If Not i = ActiveCell.Row Then
If Not Intersect(Target, Range("B5:B26")) Is Nothing Then
zeile1 = ActiveCell.Row
zeile2 = i
Range("A5").Select
Selection = ActiveCell
For j = 2 To 366
Cells(zeile1, j) = Cells(zeile2, j)
Cells(zeile2, j) = ""
Next j
End If
End If
End If
Next i
End Sub