Link to file is corrupted after using a macro

[jzimmerlin]

I created a macro that is supposed to copy the contents of about 500 rows, and move them all up one row. One of the things that is contained in those rows are a bunch of hyperlinks to Microsoft Word documents. When I try to move the 500 rows up manually (just copying, and pasting one row higher), it works fine. The link remains entact.

However, when I use the macro I recorded, the link no longer works. You can no longer click on the link to go to the file. It looks like it is there (the text used to represent the link is there), but when you click on it, nothing is there. Here's my code. I'd appreciate any suggestions.

Sub DeleteRow() 
 '
     ' DeleteRow Macro
     ' Macro recorded 8/20/2006 by XXXXXXXXXX
 '
     ' Keyboard Shortcut: Ctrl+Shift+X
 '
    ActiveCell.Offset(1, 0).Range("A1:M505").Select 
    Selection.Copy 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(449, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-28, 0).Range("A1").Select 
    ActiveWindow.LargeScroll Down:=-1 
    ActiveCell.Offset(-2, 0).Range("A1:M505").Select 
    ActiveSheet.Paste 
    ActiveWindow.ScrollRow = 507 
    ActiveWindow.ScrollRow = 503 
    ActiveWindow.ScrollRow = 498 
    ActiveWindow.ScrollRow = 484 
    ActiveWindow.ScrollRow = 464 
    ActiveWindow.ScrollRow = 437 
    ActiveWindow.ScrollRow = 407 
    ActiveWindow.ScrollRow = 373 
    ActiveWindow.ScrollRow = 342 
    ActiveWindow.ScrollRow = 321 
    ActiveWindow.ScrollRow = 306 
    ActiveWindow.ScrollRow = 278 
    ActiveWindow.ScrollRow = 247 
    ActiveWindow.ScrollRow = 219 
    ActiveWindow.ScrollRow = 187 
    ActiveWindow.ScrollRow = 158 
    ActiveWindow.ScrollRow = 129 
    ActiveWindow.ScrollRow = 108 
    ActiveWindow.ScrollRow = 92 
    ActiveWindow.ScrollRow = 79 
    ActiveWindow.ScrollRow = 68 
    ActiveWindow.ScrollRow = 63 
    ActiveWindow.ScrollRow = 61 
    ActiveWindow.ScrollRow = 56 
    ActiveWindow.ScrollRow = 52 
    ActiveWindow.ScrollRow = 47 
    ActiveWindow.ScrollRow = 45 
    ActiveWindow.ScrollRow = 43 
    ActiveWindow.ScrollRow = 42 
    ActiveWindow.ScrollRow = 40 
    ActiveWindow.ScrollRow = 38 
    ActiveWindow.ScrollRow = 34 
    ActiveWindow.ScrollRow = 27 
    ActiveWindow.ScrollRow = 13 
    ActiveWindow.ScrollRow = 6 
    ActiveWindow.ScrollRow = 4 
    ActiveCell.Select 
End Sub