Option Explicit
'
Sub Projektaufstellungneu()
Rem ***********************************************************************************
Rem  Damit die Zelle an das Ende der Tabelle im neuen Tabellenblatt eingefügt wird,
Rem  wird zunächst das Tabellenende gesucht.
Rem  Zusätzlich soll auch die Formatierung bzw. der Rahmen der Zelle übernommen werden.
Rem  Der Inhalt der Zelle nur in Spalte A ans Tabellenende eingefügt wird
Rem  und dass die Formatierung im Bereich A:M übernommen wird !
Rem ***********************************************************************************
'
Const strQuelle As String = "Projektliste"
Const strZiel As String = "Projektaufstellung"
Const strSpalte As String = "A" 'im Ziel kopieren
Const strbisSpalte As String = "M" 'im Ziel erweitern

Dim rngQ As Range
Dim rngZ As Range
'
  'Quelle aktiv - sonst Abbruch
  Set rngQ = Selection
  If rngQ.Parent.Name <> strQuelle Then Exit Sub
  '
  'Ziel ermitteln - auch leeres Blatt berücksichtigen
  Set rngZ = Sheets(strZiel).Columns(strSpalte).Cells(Rows.Count).End(xlUp)
  If Not IsEmpty(rngZ) Then Set rngZ = rngZ.Offset(1)
  '
  'Zelle kopieren  - mit Formatierung
  rngQ.Copy Destination:=rngZ
  '
  'Ziel wird neue Quelle
  Set rngQ = rngZ
  'auf B:M erweitern - Ziel Zelle rechts - bis num. diff.
  Set rngZ = Range(rngQ.Offset(0, 1), rngQ.Offset(0, Asc(strbisSpalte) - Asc(strSpalte)))
  'über die Zwischenablage
  rngQ.Copy
  'nur die Formatierung
  rngZ.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
  'fertig
  Application.CutCopyMode = False
'
Rem ***********************************************************************************
Rem warum einfach, wenn kompliziert auch geht ;)
Rem ***********************************************************************************
'
End Sub