Probleme beim verrutschen einer Zeile

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lgZeile As Long
Dim lgPruef As Long
Dim bCount As Byte
If Target.Column > 8 And Target.Column < 16 Then
If Target.Row > 21 Then
Application.EnableEvents = False
On Error GoTo errHand
For bCount = 8 To 16
lgPruef = Cells(Target.Row, bCount).End(xlUp).Row + 1
If lgPruef > lgZeile Then lgZeile = lgPruef
Next
If lgZeile < 21 Then lgZeile = 21
If Target.Row <> lgZeile Then
Rows(Target.Row).Cut
Rows(lgZeile).Insert 'Shift:=xlDown
Cells(lgZeile, Target.Column).Select
End If
End If
End If
errHand:
Application.EnableEvents = True
End Sub