Hej Kim,
Højreklik på fanen og vælg 'Vis programkode'
Sæt denne kodestump ind:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 AND Target.Row > 1 Then
Range("B" & Target.Row + 1).Select
Range("A" & Target.Row + 1).Value = Range("A" & Target.Row) + 1
End If
End Sub
Det burde virke
//Allan