Tabellen durch Makro um Zeile erweitern

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Dim rngTarget As Range, wksTarget As Worksheet

  If Target.Column = 10 Then

  

    Select Case Target.Value

      Case "B", "C", "D"

      Set wksTarget = Worksheets(Target.Value)

    End Select

    

    If Not wksTarget Is Nothing Then

      Cancel = True

      

      With wksTarget

        Set rngTarget = .Cells(.Rows.Count, 2).End(xlUp).Offset(1, -1)

        Target.EntireRow.Copy rngTarget

      End With

      

      Target.EntireRow.Delete

    End If

    

  End If

End Sub