beliebige spalten ansprechen

Sub Schaltfläche2_BeiKlick_no_outputbox_multi_spalten()
Dim wks As Worksheet, iSpalte%, lngZeile&, dblKurs#, arrSpalte
Set wks = ActiveSheet
arrSpalte = Array(1, 2, 4) 'Spalten mit den Angaben in Dollar
dblKurs = CDbl(InputBox("Wechselkurs USD/EUR?", "USD in EUR umrechnen", "1,30"))
With wks
For iSpalte = 1 To UBound(arrSpalte)
For lngZeile = 1 To .Cells(.Rows.Count, iSpalte).End(xlUp).Row
If (Not IsEmpty(.Cells(lngZeile, iSpalte))) _
And IsNumeric(.Cells(lngZeile, iSpalte)) Then
.Cells(lngZeile, iSpalte).Value = .Cells(lngZeile, iSpalte) / dblKurs
End If
Next lngZeile
Next iSpalte
End With
End Sub

der rechner sollte in jeder zelle beliebiger spalten eine rechnung durchführunge.
diese zeile:
arrSpalte = Array(1, 2, 4) 'Spalten mit den Angaben in Dollar
sollte ihm sagen, dass er spalte 1,2 und 4 berechnet. leider schaut er nicht auf die werte in der klammer, sondern orientiert sich an der anzahl der werte, sprich
bei Array(1,2,4) bearbeitet er mir die ersten 2 spalten
bei Array(3,4,5,6) die ersten 3 spalten
und bei Array(1,5,7,6,2,6) die ersten 5 spalten. also irgendwie immer "minus 1" .. blick da nich hinter
wo ist der fehler?
thx 4 help