kann man sich alles erarbeiten

Sub test()
    Dim lngSpalte As Long
    lngSpalte = Cells(5, Columns.Count).End(xlToLeft).Column + 1 'Zielspalte in Zeile 5 ermitteln
    Range("D5:D7").Copy 'kopieren
    Cells(5, lngSpalte).PasteSpecial Paste:=xlPasteValues 'nur Werte einfügen
    Application.CutCopyMode = False 'Markierung aufheben
End Sub

grüßli