BSB,

This is the macro i have for new row, copyies the formulas down but aslo the guys details, i just need the row blank. also in Column A it does not move the number down just copies it

Sub Copy_One_Row_Below()
With Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 25))
.Offset(1).Insert shift:=xlDown
.Copy
.Offset(1).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
.Offset(1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False

End With
Cells(ActiveCell.Row + 1, 2) = "=" & Cells(ActiveCell.Row, 2).Address & "+1"
End Sub