you can use something like this to loop trought columns
Sub aa()
Dim i As Long
For i = 2 To 10
Columns (i) ' your code here
Next
End Sub