Copy from one list to multiple sheets with different values for each sheet + renaming

Maybe:

Sub Thifiell()
Dim i As Long
Dim x As String
Dim ws As Worksheet
Set ws = Sheets(Sheets.Count)
ws.Activate
    For i = 2 To ws.Range("A" & Rows.Count).End(3).Row
        x = Cells(i, "A").Value
        Sheets.Add.Name = ws.Cells(i, "A").Value
        Range("A6") = "Article number"
        Range("B6") = x
        ActiveSheet.Move After:=Sheets(Sheets.Count)
    ws.Activate
    Next i
End Sub