Kopier data fra flere ark til Ark1

Sub KopiAlleTilArk1()
    Dim ws As Worksheet
    Dim bytAns As Long
   
    For Each ws In ActiveWorkbook.Worksheets
   
'Springer Ark1 over.
If ws.Name = "Ark1" Then GoTo næste
    ws.Activate
   
    'Spørger før kopiering, kan evt slettes. (Husk: Else og End if, nederst)
    bytAns = MsgBox("Du har anmodet om at kopierer ark: " & _
    ws.Name & _
    vbCrLf & "Ønsker du det?", vbYesNo + vbQuestion, _
    "Bekræft kopiering.")
 
    If bytAns = vbYes Then

    Range("A11").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+MID(R7C2,4,6)"
    Selection.AutoFill Destination:=Range("A11:A" & Range("B" & Rows.Count).End(xlUp).Row)
    Range("A11:A" & Range("B" & Rows.Count).End(xlUp).Row).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Rows("11:11").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Ark1").Select
    Range("StartCell").Select
    'Gå til sidste skrevne linje
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    Else
    End If
   
næste:
    Next ws
End Sub