各位高手

怎么把下面两个宏合并成一个啊？
1、清除数据的宏：
Sub 删除信息()
End Sub
If MsgBox("删除之后无法恢复!", vbYesNo, "请确认") = vbYes Then
Sheets("巧媳妇总部").Select
Columns("A:O").Select
Selection.ClearContents
Range("A1").Select
End If
End Sub
2、复制数据的宏：
Sub testGetValuesFromClosedWorkbook()
GetValuesFromAClosedWorkbook "C:\Documents and Settings\Administrator\桌面", "巧媳妇总部.xls", "巧媳妇总部", "A1:M500"
End Sub
Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
With ActiveSheet.Range(cellRange)
.FormulaArray = "='" & fPath & "\[" & fName & "]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub
谢谢各位大神！