Assuming it's you, and not something that determines what columns to work on programmatically,
put your code inside a loop to use a variable for the column to work on.
Replace the "B"'s you have in your code with that variable, for example...
Code:
For j = 1 To 4
'which column to loop
col = Choose(j, "B", "K", "N", "X")
With Sheet2
LastRow = .Range(col & .Rows.Count).End(xlUp).Row
For i = 2 To LastRow
.Range(col & i).Value = .Range(col & i).Value / 3.3
Next i
'just format what's needed not entire columns
.Range(col & "2:" & col & LastRow).NumberFormat = "###0.0"
End With
Next j