求一段简单的代码，比较急

想按一下按钮  将sheet2中的内容复制到sheet1相应的列，谢谢！

自己顶一下

请测试：
Private Sub CommandButton1_Click()
    Dim c As Range, i&
    On Error Resume Next
    With Sheets("Sheet2")
        For i = 1 To .Cells(1, Columns.Count).End(1).Column
            .Cells(2, i).Resize(.Cells(Rows.Count, i).End(3).Row - 1).Copy [1:1].Find(Cells(1, i).Value, , , 1).Offset(1)
        Next
    End With
End Sub

多谢赵老师