Rows("1:1").Select
Selection.Copy
Rows("2:2").Select
Selection.Insert Shift:=xlDown

##</code><code>##

1: Cell1, Cell2, Cell3
2: Data1, Data2, Data3
3: Foo01, Foo02, Foo03

##</code><code>##

1: Cell1, Cell2, Cell3
2: Cell1, Cell2, Cell3
3: Data1, Data2, Data3
4: Foo01, Foo02, Foo03