¿Cómo copio una celda que es la misma en muchos libros en uno que compile?

Hola, me gustaría saber cómo copiar la misma celda (“B3″) de muchos libros en una columna al costado izquierdo de una tabla que ya se extrajo (Columna A), con la macro que coloco luego. El proceso que quiero es este:
*Se abra el archivo 1 de n que existen en una carpeta.
*Se copia la tabla (eso está listo en la macro que encontré).
*Se copie la celda B3 en la columna “A” hasta que no hayan más datos en la tabla que empieza en la columna “B” (ESTE ES EL PASO QUE ME FALTA AGREGAR)
*Se cierre el archivo y abra el siguiente haciendo el mismo proceso.

“”Sub ponernombre()
‘Por.DAM
Set l1 = ThisWorkbook
Set h1 = l1.Sheets(“concentrado”)
h1.Cells.Clear
Application.ScreenUpdating = False
Set nav = CreateObject(“shell.application”)
carp = nav.browseforfolder(0, “SELECCIONA CARPETA”, 0, “C:\trabajo”).items.Item.Path
If carp = “” Then Exit Sub
carp = carp & “\”
ChDir carp
archi = Dir(“*.xls*”)
Do While archi “”
Workbooks.Open archi
uf = ActiveCell.SpecialCells(xlLastCell).Row
uc = ActiveCell.SpecialCells(xlLastCell).Column
u = h1.Range(“A1″).SpecialCells(xlLastCell).Row + 1
Range(Cells(6, 1), Cells(uf, uc)).Copy h1.Range(“B” & u)
ActiveWorkbook.Close
archi = Dir()
Loop
MsgBox “Archivos concentrados”, vbInformation, “UNIR ARCHIVOS EN UNA HOJA”
End Sub”"