Change Roster values

Hi Bloodywog
Ha...caught me again!!! In Module UpDate_Roster in the Cleaning Roster section (down toward the bottom) change these two lines of code from

On Error GoTo 0
                            Intersect(myRow.EntireRow, myCol.EntireColumn) = cel.Offset(0, 3).Value 'change this 3 to 7<----
                            On Error Resume Next
                            Intersect(myRow2.EntireRow, myCol.EntireColumn) = cel.Offset(0, 3).Value 'change this 3 to 7<----

                            On Error GoTo 0

to

On Error GoTo 0
                            Intersect(myRow.EntireRow, myCol.EntireColumn) = cel.Offset(0, 7).Value 'to this
                            On Error Resume Next
                            Intersect(myRow2.EntireRow, myCol.EntireColumn) = cel.Offset(0, 7).Value 'to this
                            On Error GoTo 0