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

This what i have so far, Doesnt work but on the right direction.

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