Asistencia para crear una macro en excel utilizando visual basic

He creado un procedimiento para abrir una serie de archivos utilizando visual basic. La macro funciona con éxito pero necesito que además de abrir el archivo correspondiente copie ciertos datos (como ser A4, A6, A8 y B8) en el archivo que se va a abrir. Lamentablemente mis conocimientos de visual basic son limitados.

Les paso el procedimiento que hice y espero puedan ayudarme

sub abrirarchivoexterno()
dim archivoconsulta as string
dim archivoabrir as excel.workbook
archivoconsulta = cells(1, 6)
if archivoconsulta = "1" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos\5xr 500 mg.xlsx")
elseif archivoconsulta = "2" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\alzaten disgrelent cr.xlsx")
elseif archivoconsulta = "3" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos\ana-q 50 mg.xlsx")
elseif archivoconsulta = "4" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\arapentin 600 mg.xlsx")
elseif archivoconsulta = "5" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\ariflenac.xlsx")
elseif archivoconsulta = "6" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\at 600 mg.xlsx")
elseif archivoconsulta = "7" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\audecol 150 mg.xlsx")
elseif archivoconsulta = "8" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\audecol 300 mg.xlsx")
elseif archivoconsulta = "9" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\bromotil 20 mg.xlsx")
elseif archivoconsulta = "10" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos\ceglution 300 mg.xlsx")
elseif archivoconsulta = "11" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos\ceglution xr.xlsx")
elseif archivoconsulta = "12" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos\cuait d.xlsx")
elseif archivoconsulta = "13" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos\cuait trifluoperazina 5 mg.xlsx ")
elseif archivoconsulta = "14" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos\cuait trifluoperazina 10 mg.xlsx")
elseif archivoconsulta = "15" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos\dexatotal 4 mg.xlsx")
elseif archivoconsulta = "16" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos\dexatotal 8 mg.xlsx")
elseif archivoconsulta = "17" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos\disulfix 500 mg.xlsx")
elseif archivoconsulta = "18" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\ex 3 10 mg.xlsx")
elseif archivoconsulta = "19" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\ex 3 20 mg.xlsx")
elseif archivoconsulta = "20" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\inquetia 25 mg.xlsx")
elseif archivoconsulta = "21" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\inquetia 100 mg.xlsx")
elseif archivoconsulta = "22" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\inquetia 200 mg.xlsx")
elseif archivoconsulta = "23" then
set archivoabrir = workbooks.open("i:\proyecto gmp\archivos para consulta gmp\comprimidos recubiertos\irsyn xr 100 mg.xlsx")

end sub