Cell Value based on another column

[Neveidas]

Hello, I'm having issues with this

Book1.xlsm
	A	B
1	Abrreviation	Transport
2	Bus	Bus.inc
3		Bus.inc
4		Bus.inc
5		Bus.inc
6		Bus.inc
7		Bus.inc
8	Car	Car co.
9		Car co.
10		Car co.
11		Car co.
12		Car co.
13	Motorbike	Motorcycle ptd ltd
14		Motorcycle ptd ltd
15		Motorcycle ptd ltd
16		Motorcycle ptd ltd
17		Motorcycle ptd ltd
18		Motorcycle ptd ltd
19	Bicycle	Bicycle ltd
20		Bicycle ltd
21		Bicycle ltd
22		Bicycle ltd
23		Bicycle ltd
24		Bicycle ltd
25		Bicycle ltd
Sheet3

I'm trying to fill column A with abbreviations of Column B and it is til the last filled row in B,

Sub EcomClass()

Application.ScreenUpdating = False
Dim ws As Worksheet
Dim i As Long, l As Long
Dim r As Range, rr As Range
    
Set ws = ThisWorkbook.Sheets("sheet3")

    i = ws.Range("B" & Rows.Count).End(xlUp).Row
    Set r = ws.Range("A2:A" & i)
        
       For Each rr In r
        If Cells(i, 2).Value = "Car Co." Then
        r.Value = "Car"
        ElseIf Cells(i, 2).Value = "Bus.inc" Then
        r.Value = "Bus"
        
        End If
        Next
        
    Set ws = Nothing
    Set r = Nothing
    
    
Application.ScreenUpdating = True

End Sub

I tried doing this but it doesn't return any results at all, can anyone help me with this? thank you in advance~

 

[bebo021999]

Is it are you looking for?

Sub EcomClass()

Application.ScreenUpdating = False
Dim ws As Worksheet
Dim i As Long, j As Long
Dim r As String
    
Set ws = ThisWorkbook.Sheets("sheet3")
    j = ws.Range("B" & Rows.Count).End(xlUp).Row
       
       For i = 2 To j
       r = Cells(i, 2).Value
        If Left(r, 2) = "Bu" Then
        Cells(i, 1).Value = "Bus"
            ElseIf Left(r, 2) = "Ca" Then
            Cells(i, 1).Value = "Car"
                ElseIf Left(r, 2) = "Mo" Then
                Cells(i, 1).Value = "Motobike"
                    ElseIf Left(r, 2) = "Bi" Then
                    Cells(i, 1).Value = "Bicycle"
        End If
       Next
            
Application.ScreenUpdating = True

End Sub

 

[Neveidas]

Is it are you looking for?

Sub EcomClass()

Application.ScreenUpdating = False
Dim ws As Worksheet
Dim i As Long, j As Long
Dim r As String
   
Set ws = ThisWorkbook.Sheets("sheet3")
    j = ws.Range("B" & Rows.Count).End(xlUp).Row
      
       For i = 2 To j
       r = Cells(i, 2).Value
        If Left(r, 2) = "Bu" Then
        Cells(i, 1).Value = "Bus"
            ElseIf Left(r, 2) = "Ca" Then
            Cells(i, 1).Value = "Car"
                ElseIf Left(r, 2) = "Mo" Then
                Cells(i, 1).Value = "Motobike"
                    ElseIf Left(r, 2) = "Bi" Then
                    Cells(i, 1).Value = "Bicycle"
        End If
       Next
           
Application.ScreenUpdating = True

End Sub

Yes, this is what I am looking for, i could use the same codes for this right?

Book1.xlsm
	A	B
2		CONVENANT LOGISTICS CO LTD
3		CONVENANT LOGISTICS CO LTD
4		CONVENANT LOGISTICS CO LTD
5		CONVENANT LOGISTICS CO LTD
6		CONVENANT LOGISTICS CO LTD
7		CONVENANT LOGISTICS CO LTD
8		CONVENANT LOGISTICS CO LTD
9		HONGKONG WEIBIN TECHNOLOGY NETWORK LIMITED
10		HONGKONG WEIBIN TECHNOLOGY NETWORK LIMITED
11		HONGKONG WEIBIN TECHNOLOGY NETWORK LIMITED
12		HONGKONG WEIBIN TECHNOLOGY NETWORK LIMITED
13		HONGKONG WEIBIN TECHNOLOGY NETWORK LIMITED
14		HONGKONG WEIBIN TECHNOLOGY NETWORK LIMITED
15		HONGKONG WEIBIN TECHNOLOGY NETWORK LIMITED
16		Jet International Logistics
17		Jet International Logistics
18		Jet International Logistics
19		Jet International Logistics
20		Jet International Logistics
21		Jet International Logistics
22		Jet International Logistics
23		Jet International Logistics
Sheet3

Or is there any changes to the VBA?

 

[bebo021999]

How many enterprises does it have? If 3, it is OK. If more, try to create lookup table with list of unique enterprises

 

[Neveidas]

How many enterprises does it have? If 3, it is OK. If more, try to create lookup table with list of unique enterprises

There's more than 3 actually,

How do I go about creating a lookup table for them?

 

[bebo021999]

Store lookup table somewhere, then using VLOOKUP to get data. No code required.

 

[Neveidas]

Store lookup table somewhere, then using VLOOKUP to get data. No code required.

hmmm that sounds like a better idea, thank you for the advice!