Compile error: expected end of statement

[jfabro]

I am in need of a way to consolidate data from multiple files into one file. I am using the code below to perform this task. There are 2 errors and I am at a loss for how to correct them. Any help would be greatly appreciated.

Sub GetData()Dim strWhereToCopy As String, strStartCellColName As String
Dim strListSheet As StringstrListSheet = "LIST"
On Error GoTo ErrH
Sheets(strListSheet).Select
Range("B2?).Select
'this is the main loop, we will open the files one by one and copy their data into the masterdata sheet
Set currentWB = ActiveWorkbook
Do While ActiveCell.Value <> ""
strFileName = ActiveCell.Offset(0, 1) & ActiveCell.Value
strCopyRange = ActiveCell.Offset(0, 2) & ":" & ActiveCell.Offset(0, 3)
strWhereToCopy = ActiveCell.Offset(0, 4).Value
strStartCellColName = Mid(ActiveCell.Offset(0, 5), 2, 1)
Application.Workbooks.Open strFileName, UpdateLinks:=False, ReadOnly:=True
Set dataWB = ActiveWorkbook
Range(strCopyRange).Select
Selection.Copy
currentWB.Activate
Sheets(strWhereToCopy).Select
lastRow = LastRowInOneColumn(strStartCellColName)
Cells(lastRow + 1, 1).Select
Selection.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
Application.CutCopyMode = False
dataWB.Close False
Sheets(strListSheet).Select
ActiveCell.Offset(1, 0).Select
Loop



Thank you for assisting me.

 

[Special-K99]

1) No EndSub statement
2)

Dim strListSheet As StringstrListSheet = "LIST"

should be

Dim strListSheet As String
strListSheet = "LIST"

3)

Range("B2?).Select

should be

Range("B2").Select

 

[Caribeiro77]

I'm not a VBA expert but one of the errors may be:
Range("B2?).select
I must close quotation and not put a question mark...
Shouldn't you define you Error handler?
You just put
On Error Go to ErrH

 

[jfabro]

1) No EndSub statement
2)

Dim strListSheet As StringstrListSheet = "LIST"

should be

Dim strListSheet As String
strListSheet = "LIST"

3)

Range("B2?).Select

should be

Range("B2").Select

Thank you, that was so simple I should have seen it.

 

[jfabro]

Thank you. I have the error handler defined i just did not paste it here.