I hacked this together based on recording a macro and revising
is there a better way?

'copy formulas in G, H, and I down one row
Sub CopyGHIDownOne(rowNumber As Long)

Range("G" & CStr(rowNumber) & ":I" & CStr(rowNumber)).Select
Selection.Copy
Range("G" & CStr(rowNumber + 1) & ":I" & CStr(rowNumber + 1)).Select
ActiveSheet.Paste

End Sub

thanks
mark