Pb de copier coller

Bonjour,
voici mon pb
dans un macro excel je voudrait faire un copier coller par colonne car par tableau entier cela ne passe pas trop gros tableau
mais mon pb est que j'ai du rajouter une colonne j'ai reussis a tout faire sauf que mon copier coller ne marhe pas sur ma colonne rajouter
le pb est ke au deprt jai des vides et apres jai des donnees dans ma colonnes la macro etant le copier coller par format dans toutes les donnees vides puis la premeire donnees remplies puis c'est tout

voici mon code

For Col = 1 To 26
Range(Cells(Entete, Col), Cells(Entete, Col)).Select
Selection.Copy
Range(Cells(Entete, Col), Cells(Entete, Col).End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Next Col

Lorsque j'essaye de metre en place un parametre surle nombre de ligne a copier coller j'ai egalement un probleme
Voici mon code

nbLignes = 1
For Each Cell In Range("A3:A25000")
If (Cell.Value > "") Then
nbLignes = nbLignes + 1
End If
Next
For Col = 1 To 26
Range(Cells(Entete, Col), Cells(Entete, Col)).Select
Selection.Copy
Range(Cells(Entete, Col), Cells(Entete, Col).End(nbLignes)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Next Col

l'erreur retournee me donne "erreur definie par l'application ou par l'objet"

merci d'avance