Makro "Name der Sheet" anpassen

Sub Zeile_Kopieren()
'Application.ScreenUpdating = False
Dim ma As String
' Dim man As String
ma = ActiveSheet.Name
' man = ActiveSheet.Name
Dim lc As Range
ze = ActiveCell().Row             'zeile
sp = ActiveCell().Column          'spalte
Set lc = ActiveCell
If ActiveCell.Row < 2 And ActiveCell.Column < 14 Then  'Row=Zelle,Column=Spalte
MsgBox "Achtung Sie haben die falsche Zelle + Spalte ausgewählt!     " _
& Chr(13) & Chr(13) & "            Zelle:" & "   " & ze & _
"    Spalte:" & "  " & sp & Chr(13) & Chr(13) & _
"Die Z e i l e         1     und" & Chr(13) & _
"die S p a l t e n     1  bis  13" & Chr(13) & _
Chr(13) & "können Sie nicht verschieben !" & Chr(13), vbCritical
Else
z = ActiveCell().Row
If ActiveSheet.Range(Cells(z, 2), Cells(z, 13)).Select Then
Antwort = MsgBox("Sie haben folgende Zeile mit den Daten ausgewählt:    " _
& Chr(13) & Chr(13) & _
Chr(13) & Chr(13) & "Laufende Nr.:           " & Cells(Selection.Row, 1) _
& Chr(13) & Chr(13) & "Firmen-Name:           " & Cells(Selection.Row, 2) _
& Chr(13) & Chr(13) & "Kundenname:            " & Cells(Selection.Row, 5) _
& Chr(13) & Chr(13) & "Ort:                           " & Cells(Selection.Row, 8) _
& Chr(13) & Chr(13) & _
Chr(13) & Chr(13) & _
Chr(13) & Chr(13) & "Zeile KOPIEREN    JA      drücken!!!", vbCritical + vbYesNo)
If Antwort = vbNo Then
ActiveCell.Select
Exit Sub
Else:
Sheets("Einladung 20.11.05").Select
Sheets("Einladung 20.11.05").Unprotect ("shk")   'schutz aufheben
Sheets(ma).Select
lc.Select
ActiveSheet.Unprotect ("shk")                    'schutz aufheben
ActiveSheet.Range(Cells(z, 1), Cells(z, 13)).Select
Selection.Copy
Sheets("Einladung 20.11.05").Select
z = ActiveCell().Row                                 'ab hier mein Makro
z = Range("a1").End(xlDown).Row
ActiveSheet.Range(Cells(z + 1, 1), Cells(z + 1, 13)).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select        '1 Spalte nach rechts gehen
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="shk"
End If
End If
End If
Sheets(ma).Select
ActiveCell.Offset(0, 1).Select        '1 Spalte nach rechts gehen
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="shk"
End Sub