Macros en Excel con Visual Basic

Trato de hacer un botón en la la cual 1.Busque Archivo excel 2.Al seleccionarlo copiar solo los capas con datos del rango A 3.se cierre 3.y lo pegue en el excel actual en el que tengo el macro

Saludos.

Estamos usando esto pero me bota un error (Subíndice fuera de intervalo) en la cual no puedo solucionarlo

O alguna sugerencia de como poder hacerlos se lo agradecería

Sub prueba()
Dim ss As String
ss = ActiveWorkbook.Name
archivo = Application.GetOpenFilename
If archivo = False Then Exit Sub
Workbooks.Open archivo
Dim AA As String
AA = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & AA).Copy
Workbooks(archivo).Close SaveChanges:=False
Range("A1").Select
ActiveSheet.Paste
End Sub