Flette tekst fra flere rækker

Prøv denne her macro om den kan bruges. Den er pt. sat op til at dine varenr står i kolonne A og beskrivelsen i kolonne B. Den sammenskriver kolonnerne i kolonne C. Der hvor der er blanke celler for varenr tilføjer den teksten i kolonne b til teksten ud for varenummeret.  Macroen er også sat til kun at læse data fra række 2 til 100. Det kan selvfølgelig tilpasses og laves smartere, hvis du kan bruge den anden del af koden.

Sub TilpasData()
    Dim i As Integer
    Dim x As Integer
       
    For i = 2 To 100
        If Range("A" & i) <> "" Then
            Range("C" & i) = Range("a" & i) & Range("b" & i)
            x = 1
        Else
            Range("C" & i - x) = Range("C" & i - x) & Range("b" & i)
            x = x + 1
        End If
    Next
End Sub

Det var små justeringer der skulle til for det ønskede resultat:

Sub TilpasData()
    Dim i As Integer
    Dim x As Integer
       
    For i = 6 To 11682
        If Range("A" & i) <> "" Then
            Range("C" & i) = Range("b" & i)
            x = 1
        Else
            Range("C" & i - x) = Range("C" & i - x) & " " & Range("b" & i)
            x = x + 1
        End If
    Next
End Sub

TAK FOR HJÆLPEN!