Macro to repeat autofil in several columns

I have recorded and example macro for a spreadsheet. How would I edit this macro so that it will autofil/copy/paste text one column at a time (eg. first for column B then C then D then all the way to column CF). I need to do it one at a time as each column will have 50,000 rows of data.

 
Range("B2").Select
   Selection.AutoFill Destination:=Range("B2:B50000"), Type:=xlFillDefault
    Range("B2:B50000").Select
    Range("B3:B50000").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 
End Sub