Option Explicit
Sub Bestandsdaten_kopieren()
Dim rngSrcData As Excel.Range
Dim rngDstData As Excel.Range
With Worksheets("overview")
Set rngSrcData = .Range("A211:AP236")
End With
With Worksheets("Datenbank Bestand")
Set rngDstData = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
Set rngDstData = rngDstData.Resize(rngSrcData.Rows.Count, rngSrcData.Columns.Count)
End With
Call rngSrcData.Copy
Call rngDstData.PasteSpecial(xlPasteValuesAndNumberFormats)
With Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
.Value = rngDstData.Cells(1, 1).Value
End With
Application.CutCopyMode = False
End Sub