Deleting Data after Extracting

[madhuchelliah]

Hello all, i have created a macro to extract the data from A column except 1st word. But i could not find a way to delete those extracted data from A column. Please guide me to acheive that. Thank you.

My macro example.

Sub DeLeft()
Dim i As Long, d As Long
Dim Cel As Range
Dim Rng As Range
Set Rng = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
For Each Cel In Rng
i = Len(Cel)
d = InStr(i, Cel, " ")
If Not d = 0 Then Cel.Offset(, 1).Value = Right(Cel, l - d)
Next Cel
End Sub

 

[Fluff]

How about

Sub DeLeft()
Dim i As Long, d As Long
Dim Cel As Range
Dim Rng As Range
Set Rng = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
For Each Cel In Rng
   d = InStr(1, Cel, " ")
   Cel.Resize(, 1 - (d > 0)).Value = Split(Cel, " ", 2)
Next Cel
End Sub

 

[madhuchelliah]

How about

Sub DeLeft()
Dim i As Long, d As Long
Dim Cel As Range
Dim Rng As Range
Set Rng = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
For Each Cel In Rng
   d = InStr(1, Cel, " ")
   Cel.Resize(, 1 - (d > 0)).Value = Split(Cel, " ", 2)
Next Cel
End Sub

It is working as expected. Thanks for your time.

 

[Fluff]

You're welcome & thanks for the feedback.