Lav faner ud fra liste, og undlad overskriften

Hej
Jeg har denne kode der danner faner ud fra en given liste, men den laver også en fane med overskriften. Det skal den ikke.
Den skal slutte i A2 eller StartCell

Sub Lav_Faner()
Dim Sidsteraekke As Integer
Dim x As Integer
Sidsteraekke = Sheets("Ark1").Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To Sidsteraekke
Sheets.Add
ActiveSheet.Name = Sheets("Ark1").Cells(x, 1) & " " & Sheets("Ark1").Cells(x, 2)
If x = 1 Then
ActiveSheet.Move After:=Sheets("Ark1")
Else
ActiveSheet.Move After:=Sheets(Sheets("Ark1").Cells(x - 1, 1) & " " & Sheets("Ark1").Cells(x - 1, 2))
End If
Next x
End Sub