VBA til overførsel af data fra en excel fane til en anden

lige kort med ord:

for ark = 2 til antalArk
  kopier range C8>>ned til xlLastCell i aktuelt ark
    indsæt i ark1_B5>>ned til xlLastCell + 1
NeXT ark

det er skelettet, har travlt, bed andre uddybe

Jeg har fundet frem til en VBA der fungere som den skal:
Sub Macro1()
    Sheets("Sheet2").Select
    Range("C8:C32").copy
    Sheets("Sheet1").Select
    Range("B5:B29").Select
    ActiveSheet.Paste
End Sub

Men kan man lave noget smart, når jeg smider "sheet3" ind, så den bare overfører til efter "sheet2"s data på "sheet1"? Altså noget med at sige +1 eller sådan? Jeg vil gerne det, så jeg er fri for at skulle side og regne rangen ud til hver sheet, hvis det er forståeligt?

Måske:

Sub Macro2()
Sheets(2).Range("C8:C32").Copy _
    Destination:=Sheets(1).Range("B5")
   
Sheets(3).Range("C8:C13").Copy _
    Destination:=Sheets(1).Range("B5").End(xlDown).Offset(1, 0)
   
Sheets(4).Range("C8:C13").Copy _
    Destination:=Sheets(1).Range("B5").End(xlDown).Offset(1, 0)
End Sub

Den fungerer ikke helt store-morten. Når jeg skriver VBA'en ind, så bliver sheet(3) overskrevet, så så sheet(4) egentlig kommer efter sheet(2)! Så ved ikke om man kan rangordne dem, så man siger sheet(3) starter efter sheet(2) og sheet(4) efter sheet(3) osv.?

Går ud fra at der ikke er data i Sheets(1).Range("B5") og nedaf, inden makro køres?


Prøv at kopierer koden ind, komentarer med grøn tekst.

Der er ingen data i "sheet1", men koden returnerer det samme! Den springer "sheet3" over, og indsætter sheet4 der i stedet. Så måske jeg skal indføre rangen manuelt, desværre.

Måske er "sheet3" ikke "Sheets(3)"

Prøv denne, der henviser til "Arknavn" og ikke "Arknr":

Nej den returnerer det samme som før, altså sheet3 bliver overskrevet, så ved ikke lige hvad det kan skyldes?

For lige at udpensle hvad hele min opgave går ud på, så kan en kunde bestille nogle produkter ud fra forskellige faner, når kunden har bestilt hvad den vil have under fanerne, skal de ønskede produkter føres over til "sheet1", for at danne mere overblik over de bestilte produkter! Jeg har så yderligere et spørgsmål, hvis kunden eksempelvis ikke bestiller noget under fane 5, er det så muligt at kunne slette fane 5, selvom fane 5 er en del af VBA'en? Eller kan man gøre sådan i VBA'en, at hvis fane 5 slettes, så deaktiveres VBA'en der indeholder noget fra fane 5?

Er det muligt at få sendt på E-mail?
Adresse under profil.