Help with checkboxes and buttons!

Hi everyone I am new to programming and need some help with this problem.
This is what I need to do.
I have two sheets. "Sheet1" & "Sheet2"
On sheet1 I have a header that goes on every page rows 1 to 6.
On column A I have checkboxes.
I have data filled in from B7:Z7 from row 7 to 200.
What I want to do is go down the list and check all the checkboxes that needs to move to Sheet2.
Once I am done checking the boxes I want to be able to click a button that I create and move the checkboxes that are selected to the next available row on Sheet2. Then clear the data on sheet1 that was moved. So I can enter new data.
Any help would be greatly appreciated.

What I want to do is when I click the button take all the rows that have been checked and move them into sheet2. Then clear the rows on sheet1 that have been moved into sheet2.
Example Book.xlsx

I hope I did this right. I appreciate any help that I can get. Thanks!

I appreciate the help I haven't tried mehmetcik yet. I tried nilem's first. It seemed to work somewhat. I only tried it in the sample book I sent.
This is my only concern. I only sent you part of the book. You see there are 4 sheets in one sheet if that makes any sense. there are 4 sheets all similar but are made for different parts. Each part has the exact same layout but have to be separate. Which is why I gave a range of columns and rows.
So the first sheet goes from A7:AA7 and does not stop with rows but I put 200 and Column A has the Check Boxes for the Range B7:AA7. The Second sheet goes from
AB7:BB7 and so on. Each sheet has 26 columns not including the 1st column that is check boxes. I didn't think this information was important but now that I see the code it very well might be. I do apologize and hope that someone can help me. Thanks!

with that being said the expired sheet2 well also have the same 4 sheets running across the same way and I want to be able to move the rows into each place on the expires sheet the same way. I didn't want to take up too much space so kept it to the first page. Sorry about that. I really hope that I can get some help. Thank you all!

Hi scottyb1977,
try this (in Sheet1 module)

Sub ertert()
Dim chb As CheckBox
For Each chb In Me.CheckBoxes
    If chb.Value = 1 Then
        With chb.TopLeftCell(1, 2).Resize(, 26)
            Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(, 26).Value = .Value
            .ClearContents
        End With
    End If
Next chb
End Sub

nilem

Your solution seems to work. There are only two things that concern me. 1. Is there a way to not clear the formula in the cells. 2. When it moves to Sheet2 If there isn't anything on the sheet it doesn't move it or at least I cant find where it moves. Now if I insert a dummy information in the first row then it works perfectly. Any solutions to this would be greatly appreciated. Thanks!

try this

Sub ertert()
Dim chb As CheckBox
On Error Resume Next
For Each chb In Me.CheckBoxes
    If chb.Value = 1 Then
        With chb.TopLeftCell(1, 2).Resize(, 26)
            Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(, 26).Value = .Value
            .SpecialCells(2).ClearContents
        End With
    End If
Next chb
End Sub

Thanks for the help. I appreciate it and it works great. Is there a way instead of clearing the data to shift the cells up to input new data at the bottom. It doesn't make sense to enter new data in between old data. Thanks!