Dim ws As Worksheet, leftNum As String, rightNum As String, numName As Long, dash As Long
    Dim num As Long, corrected As Long
    Dim loadColumn As Range, loads As Range, cell As Range


    loadColumn = Worksheets("TitlePage").Range("A28")
    loads = .Range(Worksheets("TitlePage").Range("A28"), loadColumn.End(xlDown))


    Call Part1

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "TitlePage" Then


            numName = Len(ws.Name)
            dash = InStr(1, ws.Name, "-")
            leftNum = Left(ws.Name, dash - 1)
            rightNum = Right(ws.Name, numName - dash)

            Set c = loads.Find(leftNum, LookIn:=xlValues)

            If c Is Nothing Then
                loadColumn.Value = leftNum
                loadColumn = loadColumn.Offset(1, 0)
            End If


            For Each cell In loads
                If cell.Value = leftNum Then
                    cell.Offset(0, rightNum).Value = Application.WorksheetFunction.average(Range("Friction" & leftNum & "_" & rightNum))
                End If
            Next cell

        End If
    Next ws