VBA kode til opslag og kopiering i ark indtil der ikke findes flere

Hej,
Jeg har brug for hjælp til et VBA-script.
Jeg har et regneark der ser således ud: arbejdsseddel 1, arbejdsseddel 2 etc, arbejdsseddel, total.
Jeg starter i arbejdsseddel, går til forrige ark, kopierer oplysninger derfra over i næste tomme række i fanen total,
dernæst arket før "forrige ark" etc. Dette indtil der ikke findes flere ark. Der skal være en håndtering af fejl som vil opstå når der i "arbejdsseddel 1" vælges previous.
Jeg har selv forsøgt med nedenstående, men kan ikke få den til at vælge alle arbejdssedlerne inden slut:

Worksheets("Arbejdsseddel").Activate

    ActiveSheet.Previous.Select
   
    Do
    '
    Dim wksname As String
    wksname = ActiveSheet.Name
    'Dim wksantal As Integer
    'wksantal = 1
    'For wksantal = 1 To 25
   
    '
         
    Range("B11:I17").Select
    Selection.Copy
   
    Sheets("Total").Select
   
    Dim BCell1, NBCell1
   
    Range("a2").Activate
    For a = 1 To 1000
    If ActiveCell.Value = Empty Then
    BCell1 = "A" & CStr(a - 1)
    NBCell1 = "A" & CStr(a - 2)
   
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Worksheets(wksname).Activate
    ActiveSheet.Previous.Select
   
    Dim wksantal As Integer
    wksantal = 1
    For wksantal = 1 To 25
    Dim wksname As String
    wksname = ActiveSheet.Name
   
       
   
   
    Exit Sub
   
    Else
    Range("a" & CStr(a + 1)).Select
    End If
    Next a
   
 
    Loop
   
   
End Sub

Jeg er nybegynder og giver 60 point, da jeg syntes den er svær.