Sub Indtastningsskabelon()
Dim iResultat1
Dim iResultat2
Dim iResultat3
Dim iResultat4
Dim iResultat5
Dim iSvar

Start:
If Range("A2").Value = "" Then
    Range("A2").Activate
Else
    Range("A2").CurrentRegion.Select
    ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If

Nummer:
    iResultat1 = InputBox("Indtast et Nummer", "Nummer")
    If iResultat1 = vbChancel Then Exit Sub
   
Enhed:
    iResultat2 = InputBox("Indtast en Enhed", "Enhed")
    If iResultat2 = vbChancel Then Exit Sub

Delenhed:
    iResultat3 = InputBox("Indtast en Delenhed", "Delenhed")
    If iResultat3 = vbChancel Then Exit Sub

DelenhedsKarakter:
    iResultat4 = InputBox("Indtast Delenheds karakter", "Delenheds karakter")
    If iResultat4 = vbChancel Then Exit Sub

DelenhedensAngivelse:
    iResultat5 = InputBox("Indtast Delenhedens angivelse", "Delenhedens angivelse")
    If iResultat5 = vbChancel Then Exit Sub

With ActiveCell
    .Offset(0, 0).Value = iResultat1
    .Offset(0, 1).Value = iResultat2
    .Offset(0, 2).Value = iResultat3
    .Offset(0, 3).Value = iResultat4
    .Offset(0, 4).Value = iResultat5
    End With
   
    iSvar = MsgBox("Vil du fortsætte?", vbYesNo)
    If iSvar = vbYes Then GoTo Start
   
End Sub