Sub select_stepped_cols()

' выделяет по образцу с пропуском заданного колва колонок

rng = ""
s_row = Selection.Row
s_col = Selection.Column
e_row = s_row + Selection.Rows.Count -  1 
e_col = s_col + Selection.Columns.Count -  1 

For c = s_col To ActiveSheet.UsedRange.Columns.Count Step (e_col - s_col +  1  + InputBox("По скока пропускать?", "Уточника",  1 ))
rng = rng & Cells(s_row, c).Address & ":" & Cells(e_row, c + e_col - s_col).Address & ","
Next
rng = Left(rng, Len(rng) -  1 )
    Range(rng).Select

End Sub