Habe das so gelöst,

jedoch muss ich nun immer statt Zeile 14 Nr. 15 eingeben, dass es mir Zeile 14 kopiert und einfügt.

Kennt jemand das Problem?

Private Sub CommandButton1_Click()

Worksheets("Sicherheitsdatenblätter").Activate
ActiveSheet.Unprotect
Rows("9:9").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    
    Dim lngZeile As Long
    If IsNumeric(TextBox1.Value) Then
        lngZeile = CLng(TextBox1.Value)
        Rows(lngZeile).Copy Rows(9)
    End If
    
End Sub