Copiar encabezados en todas las hojas creadas

Hola espero me puedan ayudar tengo el siguiente código:

Sub nombres()
Application.ScreenUpdating = False
Set h1 = ActiveSheet
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
existe = False
For Each h In Sheets
If h.Name = h1.Cells(i, "A") Then
h1.Rows(i).Copy h.Range("A" & h.Range("A" & Rows.Count).End(xlUp).Row + 1)
existe = True: Exit For
End If
Next
If existe = False Then
Set h2 = Sheets.Add(after:=Sheets(Sheets.Count))
h2.Name = h1.Cells(i, "A")
h1.Rows(i).Copy h2.Range("A1")
End If
Next
h1.Select
End Sub

Lo que hace es que busca los datos de la columna a si los encuentra los selecciona a todos, crea una nueva hoja con cada uno de losvalores y copia todo lo que encontró ejemplo
Hacemos clic en el botón y encuentra 5 valore los copia crea una nueva llamada eduardo y pégalos 5 valore que encontró en la hoja eduardo.
Lo que necesito es que también copie y pegue los encabezados en cada nueva hoja que se cree los encabezados son :
USUARIO ROL VALOR NOMBRE APELLIDO CREACIÓN USUARIO ACCESO CORREO
estoy usando la version 2007 y la hoja principal se llama A.DATOS
GRACIAS ESPERO ME PUEDAN AYUDAR.