Macro for TextToColumns

Hi All,
I have an excel sheet in which the row B contains consolidated data. The macro to seperate the data in this column is as given below..Ex data - Request:AD:Account:Activate:



Sub Macro1()
     '
     ' Macro1 Macro
    Columns("C:C").Select
    Selection.ClearContents
    Columns("B:B").Select
    Selection.Copy
    Columns("C:C").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:=":", FieldInfo _
    :=Array(1, 1)
    Columns("C:C").Select
    Range("C2").Select
    Selection.Value = "L1"
    Columns("D:D").Select
    Range("D2").Select
    Selection.Value = "L2"
    Columns("E:E").Select
    Range("E2").Select
    Selection.Value = "L3"
    Columns("F:F").Select
    Range("F2").Select
    Selection.Value = "L4"
    Columns("G:G").Select
    Range("G2").Select
    Selection.Value = "L5"
End Sub