I know there are shorter ways of writing a code for this query (I just don't know how) but since you only have 5 cells to copy/paste try this:
If Sheets("sheet2").Range("A2").Value = "" Then Sheets("sheet2").Range("A2").PasteSpecial Else Sheets("sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
The only assumption I made is that the cells below the destination cells of sheet2 are empty.
And as you can see this is only the code for one value.
Let me know how this works for you.