Copiar información de un libro excel a otro

Estimados favor su ayuda

Necesito copiar información de un libro excel a otro con Macro :

Tengo el siguiente código que me da la opción de buscar el otro libro sin necesidad detené el nombre ecsacto

ANÁLISIS es la hoja de destino el otro excel puede tener cualquier nombre de libro pero la hoja 1 siempre es "Sheet1"

Sub TRERSTOCK()
Application.ScreenUpdating = False
MsgBox "INGRESE STOCK EXCEL"
Sheets("ANALISIS").Select
Dim NombreArchivo As String
NombreArchivo = Application.GetOpenFilename()

Y quiero copiar del otro libro las siguientes columnas

A, B, E, H, J, L, O, S, U, X, Z empezando desde "A13", "B13" ETC toda la columna

Luego pegarla en ANÁLISIS desde un rango con pegado especial valor

El segundo probla es que la información copiada, viene con separación de filas (Espacios en blanco )

Cada 2 filas viene el dato

Su ayuda