kann mir jemand das Makro so ändern das es immer die letzte Zelle/Zeile mit Inhalt in Spalte M statt M33 auswählt. (Von A4 ausgehend)
Sub Makro9()
Dim WS1 As Worksheet, WS2 As Worksheet, i As Currency
Set WS1 = Worksheets("Hauptseite")
Set WS2 = Sheets.Add
WS2.Name = Date
'hier muss auf spalte M bis zur letzten beschriebenen geändert werden
WS1.Range("A4:M33").Copy
WS2.Range("A1").Select
WS2.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths