Hi John,

The macro is not working. It occurred error on x = .Cells(i, "A").Value. Btw the list is in a worksheet named "RAW".
i found one Macro:

Sub Createnewtabs()

Dim ws1 As Worksheet
Dim MyCell As Range
Dim MyRange As Range

Set ws1 = ThisWorkbook.Worksheets("MASTER")

Set MyRange = Sheets("RAW").Range("C10")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange
ws1.Copy After:=ThisWorkbook.Sheets(Sheets.Count)
With ActiveSheet
.Name = MyCell.Value
.Range("H23:K23").Value = MyCell.Value
End With
Next MyCell

End Sub

This macro managed to create all the new worksheets that i wanted. But the problem is it didn't copy and paste data the way i wanted it to be.

Thank you