Copy Data from one Workbook to another if condition is met but skip a column in the output

Sub TRL_Log()
    Dim a As Range
    Application.ScreenUpdating = False
    Sheets("Master Log").Copy
    ActiveSheet.Name = "TRL Log"
    On Error Resume Next
    For Each a In Range("A1:A" & Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Areas
        a.Value = a(1).Offset(-1).Value
    Next a
    Range("P1:P" & Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
    Range("F:F,I:J,P:P").Delete
    Range("H:H").Insert
    Range("H1").Value = "L/W"
    Range("H2:H" & Range("B" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=IF(Len(RC[-2])*LEN(RC[-1]),RC[-2]/RC[-1],"""")"
    Range("H:H").NumberFormat = "0.0"
    Columns.AutoFit
    Application.ScreenUpdating = True
End Sub

Thank you for your response! Although the formatting is correct when I run the macros, It seems to exactly copy the Input Workbook data into "Book 1" and re-formats the Input file to look like what I needed the Output file to look like.

In other words, I need "Input Workbook" to stay the same before, during, and after the macros runs. The macros also needs to send and update data to a specific workbook named "Output Workbook". Is this possible? Any help is greatly appreciated!

It does start by copying the Master Log worksheet from the Input file to a new workbook, but then it does all the filtering\formatting on the copy. The original is unchanged.

This saves the modified copy as "Output Workbook"

Sub TRL_Log()
    Dim a As Range
    Application.ScreenUpdating = False
    Sheets("Master Log").Copy
    'The copy is the activesheet
    ActiveSheet.Name = "TRL Log"
    On Error Resume Next
    For Each a In Range("A1:A" & Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Areas
        a.Value = a(1).Offset(-1).Value
    Next a
    Range("P1:P" & Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
    Range("F:F,I:J,P:P").Delete
    Range("H:H").Insert
    Range("H1").Value = "L/W"
    Range("H2:H" & Range("B" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=IF(Len(RC[-2])*LEN(RC[-1]),RC[-2]/RC[-1],"""")"
    Range("H:H").NumberFormat = "0.0"
    Columns.AutoFit
    'ChDrive = "C"              'Change save drive
    'ChDir "C:\Test\"           'Change save path
    ActiveWorkbook.SaveAs "Output Workbook"
    Application.ScreenUpdating = True
End Sub