No clue where to start - need to move cursor relative to a found cell.

Replace the line

Application.GoTo Reference:=Worksheets(1).Range("E" & ActiveCell.Row)

with this.

Application.GoTo Reference:=ActiveCell.Offset(, 3)