Macro copia pega que no funciona

hola Mk, mira aver si te vale esto (no estoy del todo seguro)

Private Sub CommandButton30_Click()
Workbooks.Open Filename:="F:\DIRECTORIO\LISTADOS\5024.xls"
Sheets(Array(2)).Range("E2", "F15000").Copy _
Workbooks("Plantilla_act_news_BETA
3.xls").Workheets("Matriz").Range("A2")
Application.DisplayAlerts = False
Workbooks("5024.XLS").Close SaveChanges:=False
Application.DisplayAlerts =true
End Sub

un saludo y hasta pronto
Ivan

PD: aviso: esto te copiaria todo, incluidos formatos.

por cierto, en la macro tienes varios errores/redundancias (aunque yo
no sabre explicartelos muy bien)->

ActiveSheet.Activate ->>> estas activando la hoja activa (ya activa).

Ademas no es necesario (al menos normalmente que yo sepa) activar
hojas, rangos, etc, para trabajar con ellas

Windows("Plantilla_act_news_BETA 3.xls").Activate
ActiveWorkbook.Sheets("Matriz").Activate

un poco de lo mismo de antes , pero con mas galimatias ¿usas 'windows'
por algun motivo especial? si no es asi te valdria con workbooks
(creo).

ActiveSheet.Paste Destination:=Worksheets("Matriz").Range("A2")

aqui, si no me equivoco, estas pegando la hoja activa, que es "Matriz"
en la hoja "Matriz" ??

¿y el motivo de hacerla visible? si no me equivoco no es necesario
para esta situacion.

lamento no poder/saber explicarte mucho mas, pero segun voy escribiendo
a mi mismo me entran las dudas

de todas formas creo que le macro modificada deberia funcionar

con lo que sea comentas, un saludo de nuevo