Vba 将两个模块中的代码合并为一个模块

希望将以下代码合并/组合到一个模块/脚本中。应首先执行“擦除”脚本，然后运行“移动数据”：

Sub Erase()
'
' Erase Macro
' Erase Data
'
rspn = MsgBox("Are you Sure?", vbYesNo)
If rspn = vbNo Then Exit Sub
'code
'
ActiveWindow.SmallScroll Down:=-27
Range("N3:Y152").Select
Selection.ClearContents
Range("N3").Select
Range("N3:Y152").Interior.Color = xlNone

End Sub



Sub MoveData()
Dim vals As Range, val As Range, colOffset As Integer

Set vals = Range("K3:K" & Range("K3").End(xlDown).Row)

For Each val In vals
    If val > 0 Then
        colOffset = VBA.Month(val.Offset(0, 16))
        val.Offset(0, colOffset) = val
        val.Offset(0, colOffset + 1) = val.Offset(0, 1)
        val.Offset(0, colOffset + 2) = val.Offset(0, 2)
    End If
Next val
MsgBox "Operation Completed"
End Sub

删除“子擦除（）结尾处的“结束子”

删除“子移动数据（）

将名称从Erase（）更改为其他名称