Cut & paste values in range to specific sheets

Hi All -

Hoping you can help me on this one, as you always do!

I've put together a simplified, dummy worksheet to help explain. In cells A4:A7 on Sheet 1 I have data validation options. The options are Product 1 through Product 4. I will only have one of each option, but they will be in random order. I also have a sheet for each product.

I need to be able to take the data from each row, and paste it into the correct sheet - all at the same time, with the click of a button. For example, A:4 is "Product 2", so B4:D4 would need to be pasted on the Product 2 Sheet.

I'm okay with copying, inserting, buttons, etc. Just not sure how to look at a range and then "sort" the data accordingly.

Greatly appreciate any help you can provide! Thanks!

KT

Hi Samba1,
You haven't attached your dummy workbook.

Hi Samba1,
Been away and missed this one

maybe something like.....

Sub FindIt()
    Dim rng As Range, firstAddress
    xItems = Array("Product 1", "Product 2", "Product 3", "Product 4")
   With Worksheets("Sheet1").Range("H4:H500")
    For xIndex = LBound(xItems) To UBound(xItems)
    
    Set rng = .Find(What:=xItems(xIndex), LookAt:=xlWhole, LookIn:=xlValues)
    If Not rng Is Nothing Then
      firstAddress = rng.Address
      Do
        rng.Offset(0, -6).Resize(1, 3).Copy Destination:=Worksheets(xItems(xIndex)).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
      Set rng = .FindNext(rng)
        Loop While Not rng Is Nothing And rng.Address <> firstAddress
      End If
   Next
End With
End Sub