I've recorded an Excel macro which I'm trying to duplicate from VFP using Automation. I've got it all working except one thing:

Selection.Insert Shift:=xlDown

Here is the whole macro for reference:

Sub create_new_week()
'
' create_new_week Macro
' Macro recorded 10/7/2003
'
    Range(Selection, Selection.End(xlToRight)).Select
    Range("A3:H8").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Range("B4:H6").Select
    Selection.ClearContents
End Sub

How can I automate Selection.Insert Shift:=xlDown?

TIA