and so on till Till Range("v3:v8")
Well... That's a broken pattern, so there is no "and so on."

Function MeLazy() AS Boolean
     MeLazy = PauldKed + Artik
End Function
Sub test()
    Dim cl As Long

'Step 2 = every other column (up to, and including,  u)
    For cl = 3 To 21 Step 2
         Cells(3, cl).Resize(5).Text = "-"
   Next
End Sub