Linie in EXCEL per Makro setzen/verschieben

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 ->Kalenderwoche in C5
  Const Z_KW = 5
  Const SP_KW = 3
 ->Strich ab Zeile / bis Zeile
  Const Z_STRICH_AB = 20
  Const Z_STRICH_BIS = 100
  
  Dim s_KW As String, l_sp As Long, c As Long, r As Range, Zelle As Range
  
 ->Alle geänderten Zellen
  For Each Zelle In Target
   ->Änderung in KW-Zelle ?
    If Zelle.Row = Z_KW And Zelle.Column = SP_KW Then
     ->Zahl aus KW-Zelle holen
      s_KW = Cells(Z_KW, SP_KW).Value
     ->Zahl umwandeln / prüfen
      If s_KW <>  Then
        On Error Resume Next
        l_sp = CLng(s_KW)
        If Err.Number = 0 Then
          On Error GoTo 0
          If l_sp >= 1 And l_sp <= 53 Then
           ->prüfen, ob Strich scon gesetzt ist
            Set r = Range(Cells(Z_STRICH_AB, l_sp), Cells(Z_STRICH_BIS, l_sp))
            If r.Borders(xlEdgeRight).LineStyle = xlNone Then
             ->fetten Strich setzen
              With r.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .Weight = xlThick
                .ColorIndex = xlAutomatic
              End With
             ->alte Striche löschen
              For c = 1 To UsedRange.Column + UsedRange.Columns.Count - 1
                If c <> l_sp Then
                  Set r = Range(Cells(Z_STRICH_AB, c), Cells(Z_STRICH_BIS, c))
                  r.Borders(xlEdgeRight).LineStyle = xlNone
                End If
              Next
            End If
          Else
            MsgBox _
              Kalenderwoche außerhalb zulässigem Bereich. & vbLf & _
              1 <= KW <= 53
          End If
        Else
          Err.Clear
          On Error Resume Next
          MsgBox Die Angabe der Kalenderwoche kann nicht in eine Zahl umgewandelt werden.
        End If
      End If
    End If
  Next
AUFRAEUMEN:
  Set Zelle = Nothing: Set r = Nothing
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

.....

End Sub

 .Weight = xlThick

 .Weight = xlMedium