Add and Sort

[NWE]

Sorry this got sent to my spam mail. I have been playing around with simply adding it to column A of sheet 2 (the ones that don't exist) and then resorting it. Using your code:

ith Sheets(2)
  .[A1] = "Line"
  .[A1].Resize(d.Count) = Application.Transpose(d.keys)
  .[A1].CurrentRegion.Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlYes
End With


End Sub

Correct?