Problemer med visning af data fra søgning (VB)

Hej

Jeg har lavet en prøvet at arbejde videre med og tilpasse en søgefunktion i excel, som jeg har fundet herinde.

Jeg har imidlertid to problemer. Det ene er, at jeg ikke kan vist de data der kommer retur på den rigtige måde, da jeg vil have resultaterne fra de forskellige ark til at være hvert deres sted. Derudover er der gået noget galt med sorteringen af resultatet og så er dataene jo lige pludselig ikke valide længere. Håber I kan hjælpe

-----Start-----
Dim Fundet(300, 20) As String, Sted(300) As String, Søg As Variant, I As Integer, T As Integer
Dim R As Integer, Side(300) As String
I = 1
On Error Resume Next
Range("D1").Select
  Sheets("Forside").AutoFilterMode = False
  Sheets("Forside").Select
  Range("C27:v301").Select            ' sletter alle data i området til hyperlink
    Selection.ClearContents
    Range("c27").Select
    Søg = InputBox("Skriv søgestrengen på hvad der skal Findes")
Application.ScreenUpdating = False
    For Each ws In Worksheets

If ws.Name = "Ark 1" Then 'navnet på det ark der skal hentes data fra
      Sheets(ws.Name).Select
      Range("A1:A500").Select 'området den søger på
      Selection.Find(What:=Søg, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
        If Err.Number = 91 Then
          Err.Clear
        GoTo Videre
        End If
        a = ActiveCell.Row
        If a = 1 Then GoTo Videre
        b = ActiveCell.Column
        Cells(a, b).Activate
        Side(I) = ws.Name
        Sted(I) = "'" & ws.Name & "'!" & ActiveCell.Address
        For T = 1 To 14
        Fundet(I, T) = Sheets(ws.Name).Cells(a, T).Offset(0, 0).Value
        Next
          If I > 1 Then
        For T = 1 To I - 1
          If Sted(I) = Sted(T) Then
          GoTo Videre
        End If
        Next
      End If
      I = I + 1
    Do
      Cells.FindNext(After:=ActiveCell).Activate
        If Err.Number = 91 Then
        Err.Clear
        GoTo Videre
        End If
        a = ActiveCell.Row
          If a = 1 Then GoTo Videre
        b = ActiveCell.Column
        Cells(a, b).Activate
        Side(I) = ws.Name
        Sted(I) = "'" & ws.Name & "'!" & ActiveCell.Address
        For T = 1 To 14
        Fundet(I, T) = Sheets(ws.Name).Cells(a, T).Offset(0, 0).Value
        Next
      If I > 1 Then
        For T = 1 To I - 1
        If Sted(I) = Sted(T) Then
                GoTo Videre
          End If
        Next
      End If
     
      I = I + 1
  Loop
End If



If ws.Name = "Ark 1" Then 'navnet på det ark der skal hentes data fra
      Sheets(ws.Name).Select
      Range("A1:A500").Select 'området den søger på
      Selection.Find(What:=Søg, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
        If Err.Number = 91 Then
          Err.Clear
        GoTo Videre
        End If
        a = ActiveCell.Row
        If a = 1 Then GoTo Videre
        b = ActiveCell.Column
        Cells(a, b).Activate
        Side(I) = ws.Name
        Sted(I) = "'" & ws.Name & "'!" & ActiveCell.Address
        For T = 1 To 14
        Fundet(I, T) = Sheets(ws.Name).Cells(a, T).Offset(0, 0).Value
        Next
          If I > 1 Then
        For T = 1 To I - 1
          If Sted(I) = Sted(T) Then
          GoTo Videre
        End If
        Next
      End If
      I = I + 1
    Do
      Cells.FindNext(After:=ActiveCell).Activate
        If Err.Number = 91 Then
        Err.Clear
        GoTo Videre
        End If
        a = ActiveCell.Row
          If a = 1 Then GoTo Videre
        b = ActiveCell.Column
        Cells(a, b).Activate
        Side(I) = ws.Name
        Sted(I) = "'" & ws.Name & "'!" & ActiveCell.Address
        For T = 1 To 14
        Fundet(I, T) = Sheets(ws.Name).Cells(a, T).Offset(0, 0).Value
        Next
      If I > 1 Then
        For T = 1 To I - 1
        If Sted(I) = Sted(T) Then
                GoTo Videre
          End If
        Next
      End If
     
      I = I + 1
  Loop
End If

------slutning/præsentation af data------------

Videre:
Next
Slut:
  Sheets("Forside").Select
  Application.ScreenUpdating = True
  For T = 1 To I - 1
    Worksheets("forside").Range("C27:N101").Cells(T, 1).Select
    For R = 1 To 15
      ActiveCell.Offset(0, R) = Fundet(T, R)
    Next
      ActiveCell.Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Sted(T)
        ActiveCell.FormulaR1C1 = Side(T) ' skriver hyperlink på alle fundne steder
      Next
    Range("C27").Select
      Selection.Sort Key1:=Range("C27"), Order1:=xlAscending, Key2:=Range("C27") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
          Range("C2").Select

    If I = 1 Then
      MsgBox " ingen fundet"
      End If
    Range("D1").Select
    Selection.AutoFilter
   
   
End Sub


----------Jeg prøvede først at lave en "videre2" hvor data blev outputtet et andet sted, som jeg så henviste til i det opslag der foretages som nummer to. Det resulterede så bare i, at det hele kom det sted jeg skrev i videre2

På forhånd tak