das kannst du mit nachdenken lösen oder mit betteln nach Lösungen. Grundlagen soll man sich selbst beibringen. Das hier ist keine VBA-Schule. 

Wenn mehrere Zellen ausgewählt sind ,kann man auch das Selection-Objekt nutzen. 

Hier ist es egal ob die beiden Zellen neben- oder untereinander sind. 

Private Sub CommandButton2_Click()
   selection.cells(1).value = Range("M2").value 
   selection.cells(2).value = Range("M3").value 
End Sub