VBA for Copying to Specific Sheets

[bronkista]

Hey guys,

I'm not really too familiar with VBA and it seems my formula skills can't get this kind of result...
So basically, I would want to copy a row of data depending on customer name and then copy it to a another sheet named after the customer name.
The source data will be updated daily so I would like it to copy only the recent ones.

Attached is a sample, please refer to the "Angelina" tab...

TIA!

[Richard Buttrey]

Can't see any sample attached.

[bronkista]

Hmm, can't seem to get the attachments to work, hope this works now.

[bronkista]

Hello sir, I've attached the sheet, there was an error the first time. thank you!

[JOHN H. DAVIS]

Not the best approach, but does this help?

Sub bronkista()
Dim i As Long, x As Range, y As Range
For i = 2 To Range("D" & Rows.Count).End(3).row
Cells(i, "D").Select
Set x = Columns(4).Find(What:=Cells(i, "D").Text, After:=ActiveCell, LookIn:=xlFormulas, lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False) '.Interior.ColorIndex = 6
    If Not x Is Nothing And x.Interior.ColorIndex = xlNone Then
        Cells(x.row, "A").Resize(1, 4).Copy Sheets(x.Value).Range("A" & Rows.Count).End(3)(2)
        Cells(x.row, "F").Copy Sheets(x.Value).Range("E" & Rows.Count).End(3)(2)
        Cells(x.row, "H").Copy Sheets(x.Value).Range("F" & Rows.Count).End(3)(2)
        x.Interior.ColorIndex = 6
        For Each y In Range("D2:D" & x.row - 1)
            If y.Value = x Then y.Interior.ColorIndex = 3
        Next y
    End If
    Set x = Nothing
Next i
Columns(4).Interior.ColorIndex = xlNone
End Sub