Makro til tilpasning og beregning

Prøv med

Sub IndsætLinie()

Old = "Start"
For Each c In Range("A2:A50")
    If Not Old = c.Value Then
        c.EntireRow.Insert Shift:=xlDown
    End If
    Old = c.Value
Next c

End Sub

Havde lige overset, at der skulle være to tomme linier. Prøv med den her i stedet:

Sub IndsætLinie()

Old = "Start"
Line1 = False
For Each c In Range("A2:A50")
    If (Not Old = c.Value And Old <> "Start") Or Line1 Then
        c.EntireRow.Insert Shift:=xlDown
        If Line1 Then
            Line1 = False
        Else
            Line1 = True
        End If
    End If
    Old = c.Value
Next c

End Sub

Det virker fint, en er dog kun mit ene problem. Jeg skal lave en sum for hver person derefter (i det første af de tomme felter) og det er jo et variabelt antal felter den skal lave en sum på, hvordan gør jeg det ?

altså en sum på timer og kilometer

Det var noget mere kringlet. Prøv med:

Sub IndsætLinie()

Old = "Start"
Line1 = False
StartSumRække = 2
For Each c In Range("A2:A50")
    If (Not Old = c.Value And Old <> "Start") Or Line1 Then
        c.EntireRow.Insert Shift:=xlDown
        If Line1 Then
            Cells(c.Row - 2, 2).Formula = "=SUM(B" & StartSumRække & ":B" & c.Row - 3 & ")"
            Cells(c.Row - 2, 3).Formula = "=SUM(C" & StartSumRække & ":C" & c.Row - 3 & ")"
            StartSumRække = c.Row
            Line1 = False
        Else
            Line1 = True
        End If
    End If
    Old = c.Value
Next c

End Sub

tak skal du have.... virker helt fint

;0)