Macro to read multiple excel workshops, copy selected cells & consolidate work in workbook

Try something like this.

ThisWorkbook refers to the workbook that contains the macro code. I assumed it was the same workbook you wanted to paste to.

Change Sheet1 to the name of the destination sheet.

Sub openandcopy()
    
    Dim Counter As Long, FileDir As String, FileName As String
    
    FileDir = "D:\Projects\Futureact\Q4 Responses\"    'directory containing all the workbooks
    FileName = Dir(FileDir & "*.xls")
    
    Application.ScreenUpdating = False
    Do While FileName <> ""
        With Workbooks.Open(FileName:=FileDir & FileName)
            .ActiveSheet.Range("B3:E3").MergeCells = False 'unmerge cells
            .ActiveSheet.Range("B3").Copy _
                Destination:=ThisWorkbook.Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1)
                'Next empty row in column B
            .Close SaveChanges:=True
        End With
        Counter = Counter + 1
        FileName = Dir
    Loop
    Application.ScreenUpdating = True
    
    MsgBox Counter & " files copied", vbInformation, "Copy Complete"
    
End Sub