Hi there, I need your valious help

I get this code, but that Doesn't work well, because doesn't page the information from the others workbooks to a ReDim A..

Option Explicit
Option Base 1
Sub Ral()
'Place your code here
Dim tWB As Workbook, aWB As Workbook, UserRange As Range, ImportRange As String
Dim FileNames() As Variant, nw As Integer
Dim i As Integer, j As Integer, A()
Set tWB = ThisWorkbook
FileNames = Application.GetOpenFilename(FileFilter:="Excel Filter (*.csv),*.csv", Title:="Open File(s)", MultiSelect:=True)
Application.ScreenUpdating = False
nw = UBound(FileNames)
ReDim A(nw) As Variant
For i = 1 To nw
Workbooks.Open FileNames(i)
Set aWB = ActiveWorkbook
Set UserRange = Application.InputBox(Prompt:="Range", Type:=8)
ImportRange = UserRange.Address
For j = 1 To 4
A(j) = aWB.Sheets(1).Range(ImportRange).Cells(j, 2)
Next j
aWB.Close SaveChanges:=False
Next i
tWB.Activate
tWB.Sheets("Data").Range(nw) = A
End Sub