Hallo

ich habe folgendes Problem ich möchte den Kopierbereich (A1:Dx) ermitteln; wobei x die letzte befüllte Zelle in Spalte A ist / Bereich markieren und in Tabelle B kopieren
Eigentlich recht simpel aber für mich wieder mal zu hoch;
Hier mein Macro (war eigentlich ganz zufrieden mit mir)

Sub MIPDaten()

Sheets("Eingabe MIP").Select
finalrow = Range("A100").End(x1Up).Row
Range("A1:D" & finalrow).Copy
With Worksheets("D_MIP")
Call .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial( _
Paste:=xlPasteValuesAndNumberFormats)
End With
Application.CutCopyMode = False
End Sub