Sub CopyRowE() Dim LastRowE As Long Dim LastRowH As Long Dim LastDataRow As Long Dim CopyData As Long  With Tabelle1  LastRowE = .Range("E9999").End(xlUp).Row LastRowH = .Range("H9999").End(xlUp).Row  .Range("E2:E" & LastRowE).Copy .Range("CA1").PasteSpecial .Range("H2:H" & LastRowH).Copy .Range("CB1").PasteSpecial  LastDataRow = .Range("CB999999").End(xlUp).Row .Range("CA1:CB" & LastDataRow).Copy  Sheets.Add  ActiveSheet.Range("A1").PasteSpecial  .Range("CA1:CB" & LastDataRow).ClearContents  Tabelle1.Select .Range("A1").Select  End With End Sub