How do I assign macro codes to multiple checkboxes

Hello, I have written my code already for my first check box. My goal is to click a checkbox, and it moves the data to the right. When Unchecked it(the macro) moves the data to where it was in the first place. Please see the code for checkbox 1 below.

Private Sub CheckBox1_Click()
Select Case CheckBox1.Value
    Case True
        ActiveSheet.Range("k6:k6").Cut
        ActiveSheet.Range("M6").Select
        ActiveSheet.Paste
    Case False
        ActiveSheet.Range("m6:m6").Cut
        ActiveSheet.Range("k6").Select
        ActiveSheet.Paste
End Select


End Sub

I have about a 1000 checkboxes. I am trying to figure out a way to tell excel that I want the same code (different cells) for all my other checkboxes without me manually writing the code over and over again. I am using Excel 2007

My next checkboxes when checked would have to move cell contents

from K:7 to m7 and then back when unchecked
from K:8 to m8
from K:9 to m9 and so forth on so on all the way to 1000

Thank you very much. Eagerly awaiting your response. I have spent half of my workday on this problem.