VBA: Hvad gær jeg forkert? For variabel Next

Sub checkItems()

Dim X As String
Dim Y As String
Dim Z As String
Dim W As String
Dim varenavn As Integer
Dim varelinjer As String
Dim varelinje As Integer

    For varelinje = 15 To 24
   
        varenavn = Range("d" & varelinje).Value
       
        If varenavn <> "" Then
            Z = InputBox("tilføj vareID")
            Range("c" & varelinje).Value = Z
            W = InputBox("tilføj udgifter")
            Range("g" & varelinje).Value = W
        End If
       
        If varenavn = "" Then
            If MsgBox("Advarsel: ikke på lager" & "vil du oprette?", vbYesNo) = vbYes Then
                X = InputBox("ny vare")
                Range("d25").Value = X
                Y = InputBox("costs")
                Range("e25").Value = Y
               
            ElseIf vbNo Then
                Exit Sub
               
            End If
        End If
    Next varelinje

End Sub

Sub checkItems()

Dim X As String
Dim Y As String
Dim Z As String
Dim W As String
Dim Svar As Long
Dim varenavn As Variant
Dim varelinjer As String

For varelinje = 15 To 24

varenavn = Range("d" & varelinje).Value

'Er varenavn tom
If IsEmpty(varenavn) Then
    Svar = MsgBox("Ikke på lager" & vbCrLf & _
    "vil du oprette?", vbYesNo + vbQuestion, "Advarsel")
   
    If Svar = vbYes Then
    X = InputBox("ny vare")
    Range("D25").Value = X
   
    Y = InputBox("costs")
    Range("E25").Value = Y
    End If
   
    If Svar = vbNo Then Exit Sub
Else

'ellers, tilføj vareID og udgifter
    Z = InputBox("tilføj vareID")
    Range("C" & varelinje).Value = Z
    W = InputBox("tilføj udgifter")
    Range("G" & varelinje).Value = W
End If

Next varelinje

End Sub