copy paste filtered list from column B: to A: in vba

[lefty38]

I have a list of cells - when I filter on emp_type for Manager in column C
I can select all of the cells in column B then click on the "green dot" in the green select box and drag it (Fill_Left) over to column A - copying the filtered text to column A

How can this be accomplished in VBA?

other info
excel 2013
rows of data can be any length

Thank you for the help this forum provides

beginning table

Mgr	Employee	Pay Code	Emp_Id
Michael	Christopher	Employee	046
Tom	Travis	Employee	146
Nikhil	Joel	Manager	244
Joel	Robbie	Employee	175
Christopher	Stanton	Manager	712
Christopher	Stanton	Manager	712
Michael	Ronald	Employee	795
Michael	Harry	Employee	773
Mark	Edward	Manager	161
Mark	Edward	Manager	161
Tan	Paul	Employee	815
Kevin	Justin	Employee	127

<tbody>
</tbody>

Desired output

only the Employee name was copied to Manager name where filtered (Manager) data was selected

Mgr	Employee	Pay Code	Emp_Id
Michael	William	Employee	150
Michael	Christopher	Employee	046
Tom	Travis	Employee	146
Joel	Joel	Manager	244
Joel	Robbie	Employee	175
Stanton	Stanton	Manager	712
Stanton	Stanton	Manager	712
Michael	Ronald	Employee	795
Michael	Harry	Employee	773
Edward	Edward	Manager	161
Edward	Edward	Manager	161
Tan	Paul	Employee	815
Tan	Paul	Employee	815
Kevin	Justin	Employee	127

<tbody>
</tbody>

 

[lefty38]

In my description emp_type should be pay cd in column C
the green dot is located in the lower right corner of a selected cell

do I need to better describe the scenario ?
Thanks

 

[Fluff]

How about

Sub FillLft()

    Dim UsdRws As Long
    
    UsdRws = Range("C" & Rows.Count).End(xlUp).Row

    Columns(3).AutoFilter
    Range("C1:C" & UsdRws).AutoFilter Field:=1, Criteria1:="Manager"
    Range("A2:B" & UsdRws).FillLeft
    Columns(3).AutoFilter
    
End Sub

 

[lefty38]

thank you, Fluff, the script works perfectly

 

[Fluff]

Glad to help & thanks for the feedback