Kopieren von Formaten

ich möchte folgende Zeile in meinem Makro erweitern und zwar, dass nicht nur die Werte sondern auch die Formatierungen der Zellen mitkopiert werden.

Wie muss ich die Zeile abändern?

rngInput1.Copy 'Spalte 1 kopieren
rngOutput1.PasteSpecial xlValues 'als Wert einfügen

Gruß
Harti