タイトル行ともう一行を別シートに書き出していくマクロを作りたいのですが、タイトル行が書き出せなくて困ってます
ご教授願えませんでしょうか...

Sub Macro2()
Dim orgWs As Worksheet
Dim idx As Long
　　Set orgWs = ActiveSheet
　　Application.ScreenUpdating = False
　　For idx = 1 To Range("A65536").End(xlUp).Row
　　　　Worksheets.Add after:=Sheets(Worksheets.Count)
　　　　orgWs.Rows(idx).Copy
　　　　Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
'　　　　ActiveSheet.Name = orgWs.Cells(idx, "A").Value
　　Next idx
　　orgWs.Activate
　　Application.CutCopyMode = False
　　Application.ScreenUpdating = True
End Sub