请教各位大神

Sub CAPTAIN出品_必属精品_欢迎交流()
'货号/进价/数量位于第一行
Dim i As Range
For Each i In [a1:az1]
Sheets("Sheet2").Select
If i.Value = "" Then
GoTo 空值
Else
i.Select
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Copy
If i.Value = "货号" Then
Sheets("Sheet1").Select
[a1].Select
ActiveSheet.Paste
ElseIf i.Value = "进价" Then
Sheets("Sheet1").Select
[b1].Select
ActiveSheet.Paste
ElseIf i.Value = "数量" Then
Sheets("Sheet1").Select
[c1].Select
ActiveSheet.Paste
End If
End If
空值:
Next
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
End Sub