Pessoal, eu criei uma Commando Button para que toda vez que eu clicasse nela fosse criado uma planilha, e copiado e colado o conteúdo de outra planilha existente, com o seguinte código:

Private Sub CMBINM_Click()
 Dim NOMPLAN As String
  NOMPLAN = InputBox("Novo Mês")
   Sheets.Add AFTER:=ActiveSheet
    ActiveSheet.Name = NOMPLAN
     Sheets("PASSES").Range("A1:K3").Copy
      Sheets(NOMPLAN).Range("A1").PasteSpecial
End Sub

E eu queria que ao mesmo tempo, copiar e colar uma command button na planilha que foi acabada de criar. Como faço?