Remove Every data from Specific Columns before First Semicolon from Left Side

Respected experts

Can you help me with a macro which delete data from Specific Columns before the Semicolon from the Left side.

Current Situation is as in table below

Company	Description	Company 2	Description 2	Company 3	Description 3
Selling	Selling; What ever we do	Crosschek	Crosschek; The waterflow	Embedded	Embedded; the Whole process

Required Situation where Column name is Description, Description2, Description 3 only in these specific columns delete data before First Semicolon from Left Side and data should look like given below

Company	Description	Company 2	Description 2	Company 3	Description 3
Selling	What ever we do	Crosschek	The waterflow	Embedded	the Whole process

Here, try this:

Sub After_semicollon()
Dim Arr() As String

For Each rc In Selection
    
    If Len(rc.Value) > 0 Then
    Erase Arr()
    If InStr(rc, ";") > 0 Then
        Arr = Split(rc, ";")
        rc.Value = Trim(Arr(UBound(Arr)))
    End If
    End If
Next rc

End Sub

It is working,

Can you make one modification, it is actually deleting data wherever there is semicollon.

I mean let say if Column entry is
Selling; What ever we do ; I can make all change; Accordingly I work.

It should only delete data from Left side before First semicolon only and it should look like below(need to delete Selling; from the set as that is the data before first Semicolon)
What ever we do ; I can make all change; Accordingly I work.

Thanks for the help Zbor, this little tweak in code will fulfill my requirement

Try

Sub test()
    Dim r As Range
    With CreateObject("VBScript.RegExp")
        .Pattern = ".+?; *"
        For Each r In Selection
            r.Value = .Replace(r.Value, "")
        Next
    End With
End Sub

OK.
Also, is there any semicolon that doesn't meant to be deleted?
In your example, does it delete First word only if it matching Company name from previous column or you want to do that in any way?

Company	Description	Company 2	Description 2	Company 3	Description 3
Selling	Selling; What ever we do	Crosschek	SOMETHING DIFFERENT; The waterflow	Embedded	Embedded; the Whole process

Actually Intention is
1) to delete data if it matches with previous column
2) And Generally in second column that data which matches with first column ends in semicolon, due to which I said only to remove data from left till First semicolon only..

Zbor actually you got hold of my core issue..Thanks for that

This maybe?

Sub After_semicollon()

For Each rc In Selection
    
    If Len(rc.Value) > 0 Then
    If InStr(rc, ";") > 0 Then
        rc.Value = Trim(Replace(rc.Value, rc.Offset(, -1).Value & ";", ""))
    End If
    End If
Next rc

End Sub

Great it is working..

1) Now instead of Selecting that selected column..Can I give names of all such columns where I need to apply this code?
2) Also will it be possible to add step, if Data in col "Company" is same like data in "Description" column then cell value of Description column should be empty. It should follow for all such columns Company 2 v/s Description 2, Company 3 v/s Description 3.

I apologies since English is not my first language I made it difficult to explain...But your codes are working for me..Thanks

Yes, instead of:

For Each cel In Selection

you can put:

For Each cel In Range("C1:C1000")

Or for multiple cells:

Set rng = Union(Range("C1:C1000"), Range("D5:D10"), Range("U2:U10000")
For Each cel In rng

Thanks alot Seniors....and Zbor you are awesome...Words are less to say thanks to you...I can only share my gratitude by adding reputation in your kitty..

Glad I could Help