I have information in columns from C to CA that I need to put (cut) into
column C

The following macro lacks one item - an ability to keep moving over to the
correct column and cutting the appropriate items. By this I mean
Range"D2".select then Range"E2".select ... This process will have to go until
I reach Range"CA2".select

Any help would be appreciated

Sub cutandcopy()
'
' cutandcopy Macro

'

'
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("C2").Select
Selection.End(xlDown).Select
Range("C122").Select
ActiveSheet.Paste
Selection.End(xlUp).Select
Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("C2").Select
Selection.End(xlDown).Select
Range("C242").Select
ActiveSheet.Paste
End Sub