|Please take this posting tip in the spirit it is intended...|
You should try and post as much detail related to your requirements as possible. Since you said "The data should always be put into row starting A6" that's what the code was written to do.
Had you said "The data should always be put into row starting A6 and the existing data in the Open Contracts sheet should be shifted down one row", you would have gotten something like this:
Dim copyRange As String
.ScreenUpdating = False
.CutCopyMode = False
'Insert Row at Open Contracts Row 6
'Determine Address of Range to be Copied
copyRange = Range("$A" & ActiveCell.Row & _
":$I" & ActiveCell.Row).Address
Sheets("Open Contracts").Range("$A$6").PasteSpecial Paste:=xlPasteValues
'Clear the clipboard
Application.CutCopyMode = False
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.