Option Explicit
Sub Messwerte()
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
Const Spalten = 20
Const Spalte1 = 1
Dim strName As String
Dim lRow As Long
Dim AktDatum As Date
AktDatum = Date
strName = "C:\Benutzer\Dokumente\Aktdatum Messwerte.xlsx"
Set wsZiel = ActiveWorkbook.ActiveSheet
Set wsQuelle = Workbooks.Open(Filename:=strName).Worksheets(1)
With wsQuelle
lRow = .Cells(.Rows.Count, Spalte1).End(xlUp).Row - 1
.Cells(4, Spalte1).Resize(lRow, Spalten - Spalte1 + 1).Copy
End With
With wsZiel
lRow = .Cells(.Rows.Count, Spalte1).End(xlUp).Row + 1
.Cells(lRow, Spalte1).PasteSpecial
End With
Application.CutCopyMode = False
wsQuelle.Parent.Close
Set wsQuelle = Nothing
Set wsZiel = Nothing
End Sub