Excel - Boton en excel

Buenas

bnecesito que me ayuden en esto.

hice un lenguaje para que se copie una grilla de la hoja 1 de excel a la 2 la cantidad de veces que se necesite.

pero el inconveniente surge en que cuando instalo un boton para darle curso a esto, no me guarda el contador.

alguien sabra decirme si hago algo mal o que es lo que sucede?

este es el lenguaje

Private Sub NPOPE_Click()

Sheets("Hoja1").Select
Range("A1:n44").Select
Selection.Copy
Sheets("Hoja2").Select

If X = 0 Then

Worksheets("hoja1").Range("a1:n44").Copy
ActiveSheet.Paste Destination:=Worksheets("hoja2").Range("A1:n44")

X = 46

Else

Worksheets("hoja1").Range("a1:n44").Copy

Sheets("Hoja2").Select

Range(Cells(X, 1), Cells(X + 45, 14)).PasteSpecial

X = X + 45

End If

End Sub

gracias

saludos

laura