Bestimmten Bereich markieren

Sub Markierung()
'Jede x-te Spalte wird bis Zeile y markiert
Dim lngFirst    As Long
Dim lngI        As Long
Dim lngLast     As Long
Dim lngS        As Long
Dim lngRow      As Long
Dim rngCol      As Range
lngI = 2 'jede wievielte Spalte soll markiert werden?
lngLast = 50 'bis zur welchen Spalte?
lngRow = 20 'bis zu welcher Zeile sollen die Spalten markiert werden?
lngFirst = 12 'von welcher Zeile an sollen die Spalten markiert werden?
If lngI  lngRow Then Exit 

Sub
Set rngCol = Range(Cells(lngFirst, lngI), Cells(lngRow, lngI))
For lngS = 1 To Int(lngLast / lngI)
Set rngCol = Union(rngCol, Range(Cells(lngFirst, lngI * lngS), Cells(lngRow, lngI *  _
lngS)))
Next lngS
rngCol.Select
End Sub