tilfoje raekker og vaerdier alt efter hvor mange valg der er

Hej
Jeg er ikke helt sikker på at jeg har forstået hvad det er du mener. Men hvis du fx har et ark med en kolonne med produktnavne (kolonne A) og en kolonne med en værdi for hvert produkt (kolonne B) og du vil indsætte denne værdi i en ny række i et andet ark med det tilhørende produktnavn, så kan de gøres med følgende makro:

Sub Valg()

    For Each Cell In Range("A:A")
        a = Cell.Value
       
        If ActiveCell.Offset(0, 1) <> "" Then
            b = ActiveCell.Offset(0, 1).Value
               
                For Each Worksheet In Worksheets
                   
                    If Worksheet.Name = a Then
                        Worksheet.Select
                        Rows("1:1").Select
                        Selection.Insert Shift:=xlDown
                        ActiveCell.Value = b
                    End If
               
                Next
       
        End If
   
    Next

End Sub

for hver linie mellem raekke 6 og 35 og paa ark "Cámaras" hvor kolonne C er storre end nul, skal der tilfojes en linie (altsaa fysisk indsaettes en ekstra linie) paa ark "Totales" under punktet "Cámaras" hvor:

celle "Totales"."Bx"="Cámaras"."Nx"
celle "Totales"."Cx"="Cámaras"."Ox"
celle "Totales"."Ex"="Cámaras"."Px"

Sub Valg()

Dim v, r, cName, cQual, cCode, line

line = 10
Sheets("Cámaras").Activate
For v = 6 To 35
If Cells(v, 3).Value <> 0 Then
cName = Sheets("Cámaras").Cells(v, 14).Value: cQual = Sheets("Cámaras").Cells(v, 15).Value: cCode = Sheets("Cámaras").Cells(v, 16).Value
Sheets("Totales").Activate
Cells(line, 2).Value = cName: Cells(line, 3).Value = cQual: Cells(line, 5).Value = cCode
line = line + 1
End If
Next

End Sub

nu mangler jeg bare det der med at tilfoje raekkerne paa arket "Totales"...

hvor er det du vil indsætte rækker? Kan du bare markere rækken og indsætte en række?
I så fald:
Rows("10:10").Select
Selection.Insert Shift:=xlDown

takker ;-)