probléme avec macro excel

[thibaud06]

bonjour a tous

voila j'ai crée un tableau dans lequel je vais devoir rentrés un certain nombre de données.
Je voulai mettre en haut de la feuille de calcul une sorte de formulaire dans lequel on rentre les info une fois que c fait et que tout est bon on apuis sur un bouton qui integre ces dernieres au tableau général (sur la meme feuille):



Sub CommandButton3_Click()
Sheets("Menu").Select
End Sub
--------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me.CommandButton3
.Left = 980
.Top = ActiveCell.Top
.Visible = True
End With
End Sub
-------------------------------------------------
Private Sub update1_Click()
Range("A4", "H4").Copy
Range("A4").PasteSpecial (xlPasteValues)

For Each cell In Range("A15", "A3000")
If cell.Value = "" Then cell.Select: Selection.PasteSpecial (xlPasteValues): Exit For
Next cell


Range("B4", "H4").ClearContents






End Sub


le probleme est avec la troiséme partie
il refuse de mettre a jour le tableau et me donne le message suivant :

Run-time error "1004"
Pastespecial method of range class failed

je debute avec les macros du coup je pensse que j'ai du me planter mais ou?

merci pour votre aide