Sorry, just realised I missed an important bit

Sub InspectionSheetTransfer()
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wbTarget As Workbook
    Dim wsTarget As Worksheet
    Dim vFile As Variant
    Dim i As Long
     
     'Set source workbook
    Set wbSource = ActiveWorkbook
    Set wsSource = wbSource.Worksheets("Sheet1")
     
    With Application.FileDialog(msoFileDialogOpen)
         
        .AllowMultiSelect = True
        .Filters.Add "Excel-files", "*.xlsx", 1
        .Title = "Select All Files To Open"
         
        If .Show = - 1 Then
             
            
            For i = 1 To .SelectedItems.Count
            
                'Set selectedworkbooks
                Set wbTarget = Workbooks.Open(.SelectedItems(i))
                Set wsTarget = wbTarget.Worksheets("Insp. Sheet")
             
                 'transfer values
                With wsTarget
                     
                     'Tag Number
                    wsSource.Range("A2").Value = .Range("M8")
                     
                     'Location
                    wsSource.Range("C2").Value = .Range("T8")
                     
                     'Equipment Description
                    wsSource.Range("E2").Value = .Range("C10")
                     
                     'Manufacturer
                    wsSource.Range("J2").Value = .Range("I10")
                     
                     'Model
                    wsSource.Range("K2").Value = .Range("P10")
                     
                     'Serial Number
                    wsSource.Range("L2").Value = .Range("M8")
                     
                     'Cable Reference
                    wsSource.Range("M2").Value = .Range("C12")
                     
                     'Ex Protection
                    wsSource.Range("O2").Value = .Range("H12")
                     
                     'Gas Group
                    wsSource.Range("P2").Value = .Range("L12")
                     
                     'T Rating
                    wsSource.Range("Q2").Value = .Range("O12")
                     
                     'IP Rating
                    wsSource.Range("R2").Value = .Range("R12")
                     
                     'Cert Number
                    wsSource.Range("S2").Value = .Range("U12")
                     
                     'Drawing Number
                    wsSource.Range("T2").Value = .Range("C14")
                     
                     'Grid Ref
                    wsSource.Range("U2").Value = .Range("I14")
                     
                     'Area Class
                    wsSource.Range("W2").Value = .Range("L14")
                     
                     'Cert Auth
                    wsSource.Range("X2").Value = .Range("O14")
                     
                     'Access Normal
                    wsSource.Range("AE2").Value = .Range("I15")
                     
                     'Access Ladder
                    wsSource.Range("AF2").Value = .Range("M15")
                     
                     'Access Scaffold
                    wsSource.Range("AG2").Value = .Range("Q15")
                     
                     'Access Ropes
                    wsSource.Range("AH2").Value = .Range("U15")
                     
                     'Access Overside
                    wsSource.Range("AI2").Value = .Range("Y15")
                     
                     'Area Class 0
                    wsSource.Range("AK2").Value = .Range("F17")
                     
                     'Area Class 1
                    wsSource.Range("AL2").Value = .Range("F18")
                     
                     'Area Class 2
                    wsSource.Range("AM2").Value = .Range("F19")
                     
                     'Area Class Safe
                    wsSource.Range("AN2").Value = .Range("F20")
                     
                     'Ignition Risk H
                    wsSource.Range("AP2").Value = .Range("J17")
                     
                     'Ignition Risk m
                    wsSource.Range("AQ2").Value = .Range("J18")
                     
                     'Ignition Risk L
                    wsSource.Range("AR2").Value = .Range("J19")
                     
                     'Enviroment S
                    wsSource.Range("AT2").Value = .Range("N17")
                     
                     'Enviroment m
                    wsSource.Range("AU2").Value = .Range("N18")
                     
                     'Enviroment b
                    wsSource.Range("AV2").Value = .Range("N19")
                     
                     'corrosion h
                    wsSource.Range("AX2").Value = .Range("R17")
                     
                     'corrosion m
                    wsSource.Range("AY2").Value = .Range("R18")
                     
                     'corrosion l
                    wsSource.Range("AZ2").Value = .Range("R19")
                     
                     'vibration h
                    wsSource.Range("BB2").Value = .Range("V17")
                     
                     'vibration m
                    wsSource.Range("BC2").Value = .Range("V18")
                     
                     'vibration l
                    wsSource.Range("BD2").Value = .Range("V19")
                     
                     'inspection date
                    wsSource.Range("BF2").Value = .Range("L151")
                     
                     'grade of inspection
                    wsSource.Range("BG2").Value = .Range("W24")
                     
                     'inspected by
                    wsSource.Range("BJ2").Value = .Range("L154")
                End With
             
                 'close inspection sheet
                wbTarget.Close
            Next i
        End If
    End With
End Sub