VBA code to transfer data between sheets doesn't work?

I am having trouble trying to figure out what I need
activate or select in order to transfer data from one sheet
to another. I'm not sure where to go from here. I'm trying to
(from a command button on sheet1) find the next empty row and then
change the contents +1 from the cell above (for a new invoice number)
and then transfer named cells from the invoice sheet (sheet1) to that
row that I have detected as the next empty row. It isn't working and
I would appreciate any information and tips that anyone would be
willing to give. Here is a list of my code for the command button that
resides on sheet1.

Private Sub CommandButton3_Click()

ActiveCell.Activate

For x = 2 To 1000
If Sheets("sheet3").Range("a" & x).Value = "" Then
Sheets("sheet3").Range("a" & x).Select
Sheets("sheet3").Range("a" & x).Value = Sheets("sheet3").Range("a" & (x - 1)).Value + 1

GoTo lastline
End If
Next

lastline:

ActiveCell.Activate
Sheets("sheet3").Range("B" & x).Value = Sheets("sheet1").Range("name").Value
Sheets("sheet3").Range("C" & x).Value = Sheets("sheet1").Range("address").Value
Sheets("sheet3").Range("D" & x).Value = Sheets("sheet1").Range("city").Value
Sheets("sheet3").Range("E" & x).Value = Sheets("sheet1").Range("phone").Value
Sheets("sheet3").Range("F" & x).Value = Sheets("sheet1").Range("zip").Value
Sheets("sheet3").Range("G" & x).Value = Sheets("sheet1").Range("order").Value
Sheets("sheet3").Range("H" & x).Value = Sheets("sheet1").Range("code").Value
Sheets("sheet3").Range("I" & x).Value = Sheets("sheet1").Range("date").Value
Sheets("sheet3").Range("J" & x).Value = Sheets("sheet1").Range("qty1").Value
Sheets("sheet3").Range("K" & x).Value = Sheets("sheet1").Range("stk1").Value
Sheets("sheet3").Range("L" & x).Value = Sheets("sheet1").Range("qty2").Value
Sheets("sheet3").Range("M" & x).Value = Sheets("sheet1").Range("stk2").Value
Sheets("sheet3").Range("N" & x).Value = Sheets("sheet1").Range("qty3").Value
Sheets("sheet3").Range("O" & x).Value = Sheets("sheet1").Range("stk3").Value
Sheets("sheet3").Range("P" & x).Value = Sheets("sheet1").Range("qty4").Value
Sheets("sheet3").Range("Q" & x).Value = Sheets("sheet1").Range("stk4").Value
Sheets("sheet3").Range("R" & x).Value = Sheets("sheet1").Range("qty5").Value
Sheets("sheet3").Range("S" & x).Value = Sheets("sheet1").Range("stk5").Value
Sheets("sheet3").Range("T" & x).Value = Sheets("sheet1").Range("qty6").Value
Sheets("sheet3").Range("U" & x).Value = Sheets("sheet1").Range("stk6").Value
Sheets("sheet3").Range("V" & x).Value = Sheets("sheet1").Range("qty7").Value
Sheets("sheet3").Range("W" & x).Value = Sheets("sheet1").Range("stk7").Value
Sheets("sheet3").Range("X" & x).Value = Sheets("sheet1").Range("qty8").Value
Sheets("sheet3").Range("Y" & x).Value = Sheets("sheet1").Range("stk8").Value
Sheets("sheet3").Range("Z" & x).Value = Sheets("sheet1").Range("qty9").Value
Sheets("sheet3").Range("AA" & x).Value = Sheets("sheet1").Range("stk9").Value
Sheets("sheet3").Range("AB" & x).Value = Sheets("sheet1").Range("qty10").Value
Sheets("sheet3").Range("AC" & x).Value = Sheets("sheet1").Range("stk10").Value
Sheets("sheet3").Range("AD" & x).Value = Sheets("sheet1").Range("qty11").Value
Sheets("sheet3").Range("AE" & x).Value = Sheets("sheet1").Range("stk11").Value
Sheets("sheet3").Range("AF" & x).Value = Sheets("sheet1").Range("qty12").Value
Sheets("sheet3").Range("AG" & x).Value = Sheets("sheet1").Range("stk12").Value
Sheets("sheet3").Range("AH" & x).Value = Sheets("sheet1").Range("qty13").Value
Sheets("sheet3").Range("AI" & x).Value = Sheets("sheet1").Range("stk13").Value
Sheets("sheet3").Range("AJ" & x).Value = Sheets("sheet1").Range("qty14").Value
Sheets("sheet3").Range("AK" & x).Value = Sheets("sheet1").Range("stk14").Value
Sheets("sheet3").Range("AL" & x).Value = Sheets("sheet1").Range("qty15").Value
Sheets("sheet3").Range("AM" & x).Value = Sheets("sheet1").Range("stk15").Value
Sheets("sheet3").Range("AN" & x).Value = Sheets("sheet1").Range("qty16").Value
Sheets("sheet3").Range("AO" & x).Value = Sheets("sheet1").Range("stk16").Value
Sheets("sheet3").Range("AP" & x).Value = Sheets("sheet1").Range("qty17").Value
Sheets("sheet3").Range("AQ" & x).Value = Sheets("sheet1").Range("stk17").Value

End Sub

Thanks for all of your help

John