Indsætte tal som ikke findes i min tabel

Dim i As Integer
  For i = 1 To 8
    ActiveSheet.Cells(i, 1).Value = i
  Next

Er det det du mener?

NB: Går ud fra at vi taler om VBA t. Excel, når du skriver "Celler" :o)

Ja det er korrekt. Men det må ikke være sådan at den over skriver nogen data, men blot indsætter en linie også sætter det nye tal ind.

if ActiveSheet.Cells(i, 1).Value = "" Then ActiveSheet.Cells(i, 1).Value = i

Indsæt række fx under række 4

    Rows("4:4").Select
    Selection.Insert Shift:=xlDown

Så kan du jo bruge variablen 'i' når du skal indsætte rækker

Altså - når du sætter det sammen:

  Dim i As Integer
  For i = 1 To 8
    If ActiveSheet.Cells(i, 1).Value <> i Then
        Rows(i).Select
        Selection.Insert Shift:=xlDown
        ActiveSheet.Cells(i, 1).Value = i
    End If 
  Next

Virker kun på celle A1-A8 - men det kan du jo bare ændre ved at ændre på de værdier 'i' går fra og til... :o)