Shooter,

is there a reason you cannot simply select cells F7:FW7 and issue
Insert|Cells...Shift cells down?

A VBA code for this is:

Sub insF7_GW7()
Application.DisplayAlerts = False
Range("f7:GW7").Insert xlShiftDown
Application.DisplayAlerts = True
End Sub

HTH
Kostis Vezerides

On Jan 31, 8:37 pm, Shooter wrote:
My macro contains the following code:

Range ("I7:I1600).Value=Range ("H7:H1600).value
Range ("H7:H1600).Value=Range ("G7:G1600).value
Range ("G7:G1600).Value=Range ("F7:F1600).value
Range ("F7:F1600).Value=Range ("E7:E1600).value
End Sub

The above 4 lines of the macro is only a small portion of the entire macro.
The entire macro covers approximately 200 columns(F:GW) and thus the macro
needs to be 200 rows long.
Due to the consistency of the code, is there a way to substantially condence
the code to achieve the same result? Thanks for your help.
--
Shooter