Hallo,

nachdem der Code nun besser lesbarer ist, kann auch schnell nach der Lösung gesucht werden (-:

In diesem Fall ist es nicht schwer:

Es fehlt lediglich eine Zeile

iRow = wksD.UsedRange.Rows.Count + 1

Die Variable iRow enthält dann die nächste freie Zeile.

Im Ganzen muss der Code wie folgt aussehen:

Sub übernehmen()
    Dim iRow As Integer
    Dim wksÜ As Worksheet
    Dim wksD As Worksheet
    Dim wksE As Worksheet
    Set wksÜ = ActiveWorkbook.Worksheets(" über Verkauf")
    Set wksD = ActiveWorkbook.Worksheets("Datenbank")
    Set wksE = ActiveWorkbook.Worksheets("Eingabemaske")
    iRow = wksD.UsedRange.Rows.Count + 1
    wksD.Cells(iRow, 2).Value = wksE.Cells(2, 2).Value
    wksD.Cells(iRow, 3).Value = wksÜ.Cells(6, 4).Value
    wksD.Cells(iRow, 4).Value = wksÜ.Cells(6, 5).Value
    wksD.Cells(iRow, 5).Value = wksÜ.Cells(6, 6).Value
    wksD.Cells(iRow, 6).Value = wksÜ.Cells(7, 5).Value
    wksD.Cells(iRow, 7).Value = wksÜ.Cells(8, 4).Value
    wksD.Cells(iRow, 8).Value = wksÜ.Cells(9, 4).Value
    wksD.Cells(iRow, 9).Value = wksÜ.Cells(11, 5).Value
    wksD.Cells(iRow, 10).Value = wksÜ.Cells(13, 5).Value
    wksD.Cells(iRow, 11).Value = wksÜ.Cells(14, 5).Value
    wksD.Cells(iRow, 12).Value = wksÜ.Cells(16, 5).Value
    wksD.Cells(iRow, 13).Value = wksÜ.Cells(18, 5).Value
    wksD.Cells(iRow, 14).Value = wksÜ.Cells(19, 4).Value
    wksD.Cells(iRow, 15).Value = wksÜ.Cells(20, 4).Value
    wksD.Cells(iRow, 16).Value = wksÜ.Cells(21, 5).Value
    wksD.Cells(iRow, 17).Value = wksÜ.Cells(22, 5).Value
    wksD.Cells(iRow, 18).Value = wksÜ.Cells(23, 5).Value
    wksD.Cells(iRow, 19).Value = wksÜ.Cells(24, 5).Value
    wksD.Cells(iRow, 20).Value = wksÜ.Cells(25, 5).Value
    wksD.Cells(iRow, 21).Value = wksÜ.Cells(27, 5).Value
    wksD.Cells(iRow, 22).Value = wksÜ.Cells(29, 5).Value
    wksD.Cells(iRow, 23).Value = wksÜ.Cells(31, 5).Value
    wksD.Cells(iRow, 24).Value = wksÜ.Cells(32, 5).Value
    wksD.Cells(iRow, 25).Value = wksÜ.Cells(33, 5).Value
    wksD.Cells(iRow, 26).Value = wksÜ.Cells(35, 5).Value
    wksD.Cells(iRow, 27).Value = wksÜ.Cells(36, 5).Value
    wksD.Cells(iRow, 28).Value = wksÜ.Cells(38, 5).Value
    wksD.Cells(iRow, 29).Value = wksÜ.Cells(40, 5).Value
    wksD.Cells(iRow, 30).Value = wksÜ.Cells(41, 5).Value
    wksD.Cells(iRow, 31).Value = wksÜ.Cells(42, 5).Value
    wksD.Cells(iRow, 32).Value = wksÜ.Cells(43, 5).Value
    wksD.Cells(iRow, 33).Value = wksÜ.Cells(44, 5).Value
    wksD.Cells(iRow, 34).Value = wksÜ.Cells(45, 5).Value
End Sub

Vielleicht entspricht das ja Deiner Vorstellung?

LG, BigBen