Dim iRow As Long
iRow = Sheets("Sheet1").Range("A5").End(xlDown).Row
Sheets("Sheet1").Range(Cells(iRow, 1), Cells(iRow, 6)).Copy
Sheets("Sheet1").Range(Cells(iRow + 1, 1), Cells(iRow + 1,
6)).PasteSpecial _
Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Modify "Sheet1" and "6" to suit.

Hth,
Merjet