vb代码求助：复制指定数据到条件单元格

xingye1001

希望大家能帮我解决一个复制指定数据到条件单元格的代码编写，具体内容及要求详见附件，在此先表示感谢！

office123456

VBA:
Private Sub CommandButton1_Click()
    Dim t As Integer
    t = Application.WorksheetFunction.Match(Application.WorksheetFunction.Max(Range("C:C")), Range("C:C"))
'    MsgBox t
    Cells(t, 2).Value = Sheets("数据库").Range("C1").Value
End Sub