Code from tigeravatar ,Copying data from one sheet and copying it

Someone may be able to help without one, but if you can upload a workbook, I believe I can figure this out.

Template1 will be peach, template2 willbe oranges, template3 will be Apples, Template4 will be Grapes. I want to use the primary data ( Fruit ) to go to a differnet Tempalte. The macro i use will pull the data that i need , I just want all the peach to go to peach Tempalte and Apples to go to Apple template and so on.
[ATTACH]198283 [/ATTACH]

Sub wigiPL()
    
    Dim NameCell As Range
    For Each NameCell In Sheets("Names").Range("B1", Sheets("Names").Cells(Rows.Count, "B").End(xlUp))
        Sheets("Template1").Copy after:=Sheets(Sheets.Count)
        With Sheets("Template1")
            .Name = NameCell.Text
            .Range("C2").Value = NameCell.Text
            .Range("C3").Value = NameCell.Offset(, 2).Value
            .Range("E1").Value = NameCell.Offset(, 1).Value
            .Range("E2").Value = NameCell.Offset(, 3).Value
            .Range("E3").Value = NameCell.Offset(, 7).Value
            .Range("E4").Value = NameCell.Offset(, -1).Value
            .Range("C4").Value = NameCell.Offset(, 6).Value
            .Range("C5").Value = NameCell.Offset(, 5).Value
            .Range("E5").Value = NameCell.Offset(, 8).Value
                
        End With
    Next NameCell
    Application.CutCopyMode = False
    
End Sub

DanielRay,

Your posted example workbook has the fruits in column E when your original post said to look in column C. Also, the posted example workbook doesn't have a sheet named Template1, only Template2 through 4, and a sheet named 'Solo' with some prefilled information. Basically, it's confusing.

Do you want to split the data in the 'Names' sheet based on the entry in column E (in this case, the fruit)? Does each row get its own sheet, or should all "Oranges" go into a single sheet based on 'Template2'? What data in the row goes where in the template?

DanielRay,

Because each "template" sheet seems to be 100% identical, I don't see why you need 4 different ones instead of just one sheet named 'Template'. Here is a code that you could use for that. I wasn't sure what cells in the row go where on the template, so I only filled in a few:

Sub tgr()
    
    Dim ws As Worksheet
    Dim NameCell As Range
    
    For Each NameCell In Sheets("Names").Range("B1", Sheets("Names").Cells(Rows.Count, "B").End(xlUp)).Cells
        Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
        Sheets("Template").UsedRange.Copy
        With ws
            .Name = NameCell.Text
            .Range("A1").PasteSpecial xlPasteAll
            .Range("A1").PasteSpecial xlPasteColumnWidths
            .Range("C2").Value = NameCell.Text
            .Range("C3").Value = NameCell.Offset(, 2).Value
            .Range("E2").Value = NameCell.Offset(, 3).Value
        End With
        Set ws = Nothing
    Next NameCell
    
End Sub

In that case...

Sub tgr()
    
    Dim ws As Worksheet
    Dim NameCell As Range
    
    For Each NameCell In Sheets("Names").Range("B1", Sheets("Names").Cells(Rows.Count, "B").End(xlUp)).Cells
        Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
        Sheets(NameCell.Offset(, 3).Text).UsedRange.Copy
        With ws
            .Name = NameCell.Text
            .Range("A1").PasteSpecial xlPasteAll
            .Range("A1").PasteSpecial xlPasteColumnWidths
            .Range("C2").Value = NameCell.Text
            .Range("C3").Value = NameCell.Offset(, 2).Value
            .Range("E2").Value = NameCell.Offset(, 3).Value
        End With
        Set ws = Nothing
    Next NameCell
    
End Sub

This is SOLVED ! Thanks tigeravatar!!!

This line:

Sheets(NameCell.Offset(, 3).Text).UsedRange.Copy