excel - ヘッダーで列を整理する

Question

この質問の最初の例は完全に説明されていなかったので、もう一度試してみることにしました。私がしたいのは、シート1のヘッダーセクターを含む列をシート2の列Aに貼り付けることです。次のコードがありますが、「range(strC).select」行に「'_object global' の 'range' failed」というエラーが表示され続けます。手紙ではありませんが、よくわかりません。これを解決する方法についてのアイデアはありますか?

Sub CorrectOrder()   
Dim strC As String   
Dim cl As Range

strC = 0

For Each cl In Workbooks("Report.xls").Worksheets("Sheet1").Range("A1:AZ1")   
If cl.Value = "Sector" Then   
strC = cl.Column   
Workbooks("Report.xls").Worksheets("Sheet1").Range(strC).Select   
Selection.Copy   
Workbooks("Report.xls").Worksheets("Sheet2").Range ("A1")   
Selection.Paste   
End If   
Next cl   
End Sub