update data have already created sheets

Hi again Leopard

Your code adds new sheets successfully (in a one off action). 

I haven't changed that but if you want to change the individual sheets when someting in sheet1 is changed, you can do that with the Worksheet_Change event.

In the file attached, I've added a new macro (see code below) which does this:

1. Sees if a change was made in columns A:D in sheet1 and if so:
   1. Checks if there is already a sheet with the same name as that in  column B (and if so it copies the changed row to that sheet, row 3)
      • Note that your sheet1 has two rowd with "cvb-12-34" so there are two rows on that sheet
   2. If a new row is added, it does nothing until a name is entered in column B when it does the task above and if it's a new name, it created a new sheet of that name, adding it as a red tab next to sheet1.

You'll get a message if the macro does something.

This will need some work e.g. in sheet1 you might add data validation in column B so that cells are unique- see the tutorial Require a Unique List of Numbers in a Range in Excel). You'll also need to think what happens if rows are deleted.

Hope this helps

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:D")) Is Nothing Then
    Dim x As Worksheet

    For Each x In Sheets
        If x.Name = Cells(Target.Row, 2) Then
            'Sheet exists
            Range("A" & Target.Row & ":D" & Target.Row).Copy x.Range("A3:D3")
            MsgBox "Copied changed data to row 3 in sheet " & x.Name
            '<do other things>>
            Exit Sub
        End If
    Next x

    'sheet does not exist
    If Cells(Target.Row, 2) <> "" Then
      Set x = Sheets.Add(After:=sheet1)
      sheet1.Activate
      x.Name = Cells(Target.Row, 2) ' name sheet and make it red
      x.Tab.Color = 255
      'copy header and new row data
      Range("A2:D2").Copy x.Range("A2:D2")
      Range("A" & Target.Row & ":D" & Target.Row).Copy x.Range("A3:D3")
      MsgBox "Please move/recolor newly-created sheet " & x.Name
    End If

End If

End Sub

REVISION 1: Further to the discussion below, I've now added this code to your macro (after the DIM statements): 

Application.DisplayAlerts = False

    For Each sh In Sheets
     If Not sh.Name = ss Then
     sh.Delete
     End If
    Next sh 

Application.DisplayAlerts = True

As the file leaves me, there is only sheet1. Change a row in that (or add one with a name in column B) and a new sheet will appear- that's my Worksheet_Change macro working.

If you then run your macro (in my file), all sheets will be created.

If you then change a cell (say a quantity in D) in sheet1, my macro will work again (you should get a message)-  go to the matching sheet and the quantity in row 3 should match that on sheet1.

If you only want to do the "bulk replace" (and not have other sheets added or changed as you alter sheet1) then just delele the Worksheet_Change macro.