still learning- looking for help with excel vba

spazyp45 Perfect. Here's what I would recommend to speed things up, since the data is coming from fixed locations on Sheet2. Rather than looping through every cell on Sheet2 for every output row on Sheet4, load the values into an array first (1 row x 114 columns), then output the entire array at once:

Option Explicit

Sub SaveSchedule()

'Load the source data into an array
    Dim wsSource As Worksheet, arr() As Variant
    Set wsSource = Sheets("Sheet2")
    ReDim arr(1 To 1, 1 To 114)

    With wsSource
    ' load individual cells (with no pattern)
        arr(1, 1) = .Cells(3, 1).Value
        arr(1, 2) = .Cells(3, 7).Value
        arr(1, 3) = .Cells(3, 8).Value
        arr(1, 4) = .Cells(4, 2).Value
        arr(1, 5) = .Cells(4, 7).Value
        arr(1, 14) = .Cells(6, 3).Value

    ' loop thru cells: row 5; col 5 to 12
        Dim j As Long
        For j = 5 To 12
            arr(1, j + 1) = .Cells(5, j).Value
        Next j

    ' loop thru cells: row 7 to 16; col 1, 4 to 12
        Dim i As Long, k As Long
        k = 2
        For i = 7 To 16
            k = k + 10
            arr(1, k + 3) = .Cells(i, 1).Value
            For j = 4 To 12
                arr(1, k + j) = .Cells(i, j).Value
            Next j
        Next i
    End With

'Output the array to each applicable row
    Dim wsOutput As Worksheet, LastRow As Long
    Set wsOutput = Sheets("Sheet4")
    LastRow = wsOutput.Cells(wsOutput.Rows.Count, 1).End(xlUp).Row
    k = UBound(arr, 2)

    For i = 4 To LastRow
        If wsOutput.Cells(i, 1).Value = wsSource.Cells(11, 27).Value Then
            wsOutput.Cells(i, 27).Resize(1, k).Value = arr
        End If
    Next i

End Sub

If you have any questions, please don't hesitate to ask. Cheers!