Macro Code Only Pastes Once Need to repeat

Hello,

I Have a couple problems with this Macro code:
1.
I have 2 sheets (Data) & (Store) When I run the macro it will create a new sheet(wks) and Copy information from (Data) sheet cells A1 and Pastes to my (store) sheet However It will only paste the information from cell A1 I want the script to keep coping and pasting and stop when it hits a blank cell.
Here is what I have so far...

2. Problems with this line of code below: "Sheets("Store").Range("A1").PasteSpecial Paste:=xlPasteValues"
When I change the name of the sheet from "Store" to "wks" the script will not run correcly however I thought the script already knew that the new sheet was named "wks"

Can someone help explain some?

    Dim cell    As Range
    For Each cell In Worksheets("data").Range("A1", Range("A1").End(xlDown))
    Dim wks As Worksheet
    Set wks = Worksheets.Add
    Sheets("Data").Select
    Range("A1").Select
    Selection.Copy
    Sheets("store").Select
    Range("a1").Select
    Sheets("Store").Range("A1").PasteSpecial Paste:=xlPasteValues
    wks.Select
    Application.DisplayAlerts = False
    wks.Delete
    Application.DisplayAlerts = True
    Sheets("Data").Select
    Range("A1").Select
    Next cell

Thank You for any help...

PS Thanks shg for all your help with my last project...