Codevereinfachung + Abfrage auf Zahlen

Sub Termin_uebertragen()
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim var As Variant
Dim lRow As Long
Dim vkzBIS(4), vkzVON(4) As Integer
Application.ScreenUpdating = False
Set wksSource = Worksheets("Artikel")
Set wksTarget = Worksheets("Termine")
lRow = 2
Do Until IsEmpty(wksSource.Cells(lRow, 1))
sorte = wksSource.Cells(lRow, 3).Value
var = Application.Match(sorte, _
wksTarget.Columns(1), 0)
If Not IsError(var) Then
For i = 0 To 4 Step 1
'in folgender IF Abfrage möchte ich alle Nicht-Zahlen ausschließen
If wksTarget.Cells(var, 3 + i * 2).Value <> " " Then
vkzVON(i) = wksTarget.Cells(var, 3 + i * 2).Value
End If
If wksTarget.Cells(var, 4 + i * 2).Value <> " " Then
vkzBIS(i) = wksTarget.Cells(var, 4 + i * 2).Value
End If
If vkzBIS(i) > 0 And vkzVON(i) > 0 Then
wksSource.Cells(lRow, 11 + i * 2).Value = vkzVON(i)
wksSource.Cells(lRow, 12 + i * 2).Value = vkzBIS(i)
End If
Next i
End If
lRow = lRow + 1
Loop
Application.ScreenUpdating = True
End Sub