vba for NOT PRINTING WHATS IN A CELL

[bamaisgreat]

I am trying to print a spreadsheet without it printing the text that is in a specific cell. I am currently using the macro below but would like this added if possible. the specific cell i do not want the text to print is P7.

Sub ArchiveIt()
Dim NR As Long
    NR = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
    
    Sheets("Sheet2").Range("A" & NR).Value = Sheets("BURN").Range("B5").Value
    Sheets("Sheet2").Range("B" & NR).Value = Sheets("BURN").Range("J4").Value
    Sheets("Sheet2").Range("C" & NR).Value = Sheets("BURN").Range("B7").Value
    Sheets("Sheet2").Range("D" & NR).Value = Sheets("BURN").Range("J5").Value
    Sheets("Sheet2").Range("E" & NR).Value = Sheets("BURN").Range("B6").Value
    Sheets("Sheet2").Range("F" & NR).Value = Sheets("BURN").Range("J6").Value
    Sheets("Sheet2").Range("G" & NR).Value = Sheets("BURN").Range("L16").Value
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        Range("c11").Select
    Selection.ClearContents
End Sub

 

[bamaisgreat]

Im not sure what the problem is the top cell is p7

 

[bamaisgreat]

The code below is activated by a cmd button

Sub ArchiveIt()
Dim NR As Long
    NR = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
    
    Sheets("Sheet2").Range("A" & NR).Value = Sheets("BURN").Range("B5").Value
    Sheets("Sheet2").Range("B" & NR).Value = Sheets("BURN").Range("J4").Value
    Sheets("Sheet2").Range("C" & NR).Value = Sheets("BURN").Range("B7").Value
    Sheets("Sheet2").Range("D" & NR).Value = Sheets("BURN").Range("J5").Value
    Sheets("Sheet2").Range("E" & NR).Value = Sheets("BURN").Range("B6").Value
    Sheets("Sheet2").Range("F" & NR).Value = Sheets("BURN").Range("J6").Value
    Sheets("Sheet2").Range("G" & NR).Value = Sheets("BURN").Range("L16").Value
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        Range("c11").Select
    Selection.ClearContents
End Sub

could this be affecting the reason the text is still printing out