Indsæt række efter bestemt udsagn

noget alla

sub et_eller_andet()

dim ws as Worksheet, Område as Range,Cell as range,Row as range

set ws= activesheet
set område=ws.Range(første_celle,Sidste_Celle)
for each Cell in område
    if cell.value=ws.range("A1").value
        set Row=Rows(cell.row & ":" & cell.row)
      Row.insert shift:=xldown
      set row=row,offset(0,1)
      row=rows("2:2")
    end if
next

end sub

eller upload et eksempel

Jan