VBA Compile Error: Expected End With

Nest your code; then you can see where you need End Ifs and Loops

Private Sub cmdOK_Click()
    ActiveWorkbook.Sheets("Change Request Form").Activate
    Range("A1").Select
Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    
Loop Until IsEmpty(ActiveCell) = True

        ActiveCell.Value = txtCCTC.Value
        ActiveCell.Offset(0, 2) = txtCustomer.Value
        ActiveCell.Offset(0, 3) = txtInitiator.Value.Value
        ActiveCell.Offset(0, 4) = txtDocumentAffected.Value
    
        If optScrapReduction = True Then
            ActiveCell.Offset(0, 5).Value = "Scrap Reduction"
        ElseIf optLaborReduction = True Then
            ActiveCell.Offset(0, 5).Value = "Labor Reduction"
        ElseIf optVariationReduction = True Then
            ActiveCell.Offset(0, 5).Value = "Variation Reduction"
        ElseIf optCustomerSpecificationChange = True Then
            ActiveCell.Offset(0, 5).Value = "Customer Specification Change"
        ElseIf optReworkReduction = True Then
            ActiveCell.Offset(0, 5).Value = "Rework Reduction"
        ElseIf optMaterialReduction = True Then
            ActiveCell.Offset(0, 5).Value = "Material Reduction"
        ElseIf optEditorial = True Then
            ActiveCell.Offset(0, 5).Value = "Editorial"
        ElseIf optOther = True Then
            ActiveCell.Offset(0, 6).Value = "Other"
        End If
    
        If chkYes = True Then
            ActiveCell.Offset(0, 10).Value = "Yes"
        ElseIf chkNo = True Then
            ActiveCell.Offset(0, 10).Value = "No"
        End If
    
        If chkYes = True Then
            ActiveCell.Offset(0, 11).Value = "Yes"
        Else
            ActiveCell.Offset(0, 11).Value = "No"
        End If
        
        If chkYes = True Then
            ActiveCell.Offset(0, 13).Value = "Yes"
        Else
            ActiveCell.Offset(0, 13).Value = "No"
            
            If chkYes = True Then
                ActiveCell.Offset(0, 13).Value = "Yes"
            Else
                ActiveCell.Offset(0, 14).Value = "No"
    
                If chkYes = True Then
                    ActiveCell.Offset(0, 14).Value = "Yes"
                Else
                    ActiveCell.Offset(0, 14).Value = "No"
                End If
    
    Range("A1").Select

End Sub

I'd say you're missing a couple of End If statements

Regards