I have a macro that runs fine except when I connect to my computer at
home via "Gotomypc.com" If I run the macro from home it crashes excel.
Gives me an error message that cell range could not be read and
exel.exe will close. All my other macro's run fine from home. Any Idea
what could cause this? Or how to clean up the code?

The code is:
Sub Assembly_Schedule_Builder()
'
' Assembly_Schedule_Builder Macro
' Macro recorded 6/23/2004 by SCHEDULING
'

'
Range("U1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C:C,F:F").Select
Range("F1").Activate
Selection.Insert Shift:=xlToRight
Range("C1").Select
ActiveCell.FormulaR1C1 = _
"=IF(LEFT(RC[1],5)=""HERTZ"",""HERTZ"",IF(LEFT(RC[1],5)=""DOANE"",""TERA"",""K""))"
Range("D1").Select
Selection.End(xlDown).Select
Range("C70").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=-36
Range("D1").Select
Application.CutCopyMode = False
Range("G1").Select
ActiveCell.FormulaR1C1 = _
"=IF(LEFT(RC[1],5)=""ROADR"",""RDR"",IF(LEFT(RC[1],5)=""ROADW"",""RWY"",LEFT(RC[1],3)))"
Range("A1").Select
Selection.End(xlDown).Select
Range("G70").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=-39
Range("D:D,E:E,H:H").Select
Range("H1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("N:N").Select
Selection.Cut
Columns("K:K").Select
Selection.Insert Shift:=xlToRight
Range("B2").Select
Range("B2:L2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add Template:= _
"C:\Documents and Settings\SCHEDULING\Application
Data\Microsoft\Templates\MASTER.XLT"
Range("B3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("B3").Select
ActiveSheet.DisplayAutomaticPageBreaks = True
End Sub