Copy to sheet based on cell value

[Bengo]

Hi, I am trying to write a macro to copy data from a master sheet, to the relevant supplier sheet, based on the name in one of the cells

For example, in A1 to D1 of the master sheet I might have:

19/12/2017 | SUPPLIER A | £5000 | MANAGER A

And in A2 to D2:

19/12/2017 | SUPPLIER B | £1000 | MANAGER B

I'd like to be able to run the script to add the info in row 1 to a worksheet I already have named as "SUPPLIER A", and the info from row 2 to be copied to a worksheet already named "SUPPLIER B"

I am working on a VBA based on highlighting the desired cells and copying them to the relevant worksheet, but and struggling to make the destination worksheet be based on which supplier is in the info. Hope this makes sense! Any help would be much appreciated! Thanks

 

[Bengo]

Thanks, I am still getting a range error on the following:

OSht.Range("A6:A" & UsdRws).SpecialCells(xlCellTypeVisible).EntireRow.Copy _
Sheets(Cl.Text).Range("A1")

I code has filtered my data by the first supplier and then stopped

 

[Fluff]

What is the value of Cl.Text when you get the error & do you have a sheet with that exact name?

 

[Bengo]

Ah I've seen my mistake! I misread your code and thought it created the supplier tabs. I've now set these up for each supplier and it runs great! Thank you so much for helping me with this!

 

[Fluff]

Glad to help & thanks for the feedback