Move Info To Right

I have the following macro that I found through Search (written by Peterss) and have been able to modify it to work for me.


Sub MergeBooks()
Dim myFolder As String
Dim myBooks
Dim ws As Worksheet, wsMaster As Worksheet
Dim nr As Long, rws As Long, i As Long
Dim LR As Long

Application.ScreenUpdating = False
Application.EnableEvents = False
myFolder = "C:Documents and SettingsNalaniDesktopForecast"

I have been trying to get the information from the Next Workbook to move over 5 columns (E), then the Next book to move to col (I), etc.