Move cell values from sheet1 to sheet2

What I want to do is as follows: In shett 1 I have imformations in cells A5, B5, C5, B8, C8, E8 and so on
Now I want to move that information to row 4 - cell a1, b1, c1, d1 and so on, in sheet 2 when a push a button. The information in the cells on sheet 1 will be blanked.
Next time I move information I want it to go to Row 5 in sheet 2 (the same cells) and so on.
Is there a way to accomplish this?
I don't have much experience in Excel

The undelying idea works. But what I want is to get information from different cells in different rows.
Can this work?
Sheets("sheet1").Rows("5"). Cells("3").Copy (Sheets("sheet2").Range("A" & rcnt)
Sheets("sheet1").Rows("5"). Cells("6").Copy (Sheets("sheet2").Range("A" & rcnt)
Sheets("sheet1").Rows("5"). Cells("7").Copy (Sheets("sheet2").Range("A" & rcnt)
Sheets("sheet1").Rows("7"). Cells("3").Copy (Sheets("sheet2").Range("A" & rcnt)
Sheets("sheet1").Rows("7"). Cells("5").Copy (Sheets("sheet2").Range("A" & rcnt)
I don't have Excel available just now for testing

I have here a file to show what I want.

On Sheet1 in the yellow cells is the information I want to transfere to Sheet2 under corresponding headlines.
And it is only the yellow fields that shall be blanked.

Thanks for the help

Yes, the yellow fields (and all other fields on that sheet) will always be on the same place

I've made it with your help.
This is my code now:
Private Sub CommandButton1_Click()
Dim rcnt As Long
rcnt = 4
While Sheets("sheet2").Range("B" & rcnt) <> ""
rcnt = rcnt + 1
Wend

Sheets("sheet1").Range("B12:E12").Copy (Sheets("sheet2").Range("B" & rcnt))
Sheets("sheet1").Range("B15:E15").Copy (Sheets("sheet2").Range("F" & rcnt))
Sheets("sheet1").Range("C18:E18").Copy (Sheets("sheet2").Range("J" & rcnt))
Sheets("sheet1").Range("B21:C21").Copy (Sheets("sheet2").Range("M" & rcnt))
Sheets("sheet1").Range("E21:E21").Copy (Sheets("sheet2").Range("O" & rcnt))
Sheets("sheet1").Range("C23:C23").Copy (Sheets("sheet2").Range("P" & rcnt))
Sheets("sheet1").Range("C25:C25").Copy (Sheets("sheet2").Range("Q" & rcnt))
Sheets("sheet1").Range("C27:C27").Copy (Sheets("sheet2").Range("R" & rcnt))


End Sub

Aderk,
Please wrap you code with code tags.