Hallo wimaxe,

das kann man z.B. mit nachfolgendem Makro realisieren.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Kopieren()
Application.ScreenUpdating = False
Sheets("Eingaben").Range("B2,B3,B7,B8,B17").Copy
Sheets("Buchungen").Cells(Sheets("Buchungen").Cells(Rows.Count, 1) _
    .End(xlUp).Offset(1, 0).Row, 1).PasteSpecial _
    Paste:=xlPasteValues, Transpose:=True
End Sub

Wie man einen Button erstellt kannst Du auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 4 oder 7 nachlesen. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}