¿Cómo hago una macro para dividir una tabla dinámica en dos?

Necesito hacer una macro que me permita dividir una tabla dinámica en dos partes iguales y pegar ambas mitades en otra hoja la tabla tiene 14 columnas y 28557 filas

Estaba trabajando así, pero no se como dividirla

n = Hoja1.Range("A1").CurrentRegion.Rows.Count
Hoja1.Range("Q1") = n

Range("A2").Select
Range(Selection, Selection."n/2")).Select
Range(Selection, Selection.End(xlTodown)).Select
Sheets("hoja3"). Activate
Range("A1"). PasteSpecial xlPasteAll

Como siempre.