print out range with ignore highlighted cells

 Hi Omaran

From the file you attached to your question, it looks like you want to print only those transactions after the last cell in column E of worksheet Monthly which is manually filled red

At the top of that sheet in the revised file attached, you will find a green button labelled "Quick print last transactions". Click that and the last transactions will be printed (like your worksheet Result) to your printer. The button has the following macro (in Module1) assigned to it. I've added full comments so you can see what happens:

Sub PrintAfterHigh()

    ' Hide actions from user
    Application.ScreenUpdating = False
    ' find last used row in E
    LstRw = Cells(Rows.Count, "E").End(xlUp).Row

    ' loop backwards from there to row 2
    For n = LstRw To 2 Step -1
        ' check if cell is red
        If Cells(n, "E").Interior.Color = 255 Then
            ' if so, hide rows up to and including that
            Rows("2:" & n).Hidden = True
            ' stop looking
            Exit For
        End If
    Next n

    ' print results
    ActiveSheet.PrintOut
    ' unhide rows
    Rows("2:" & LstRw).Hidden = False
    ' reveal actions
    Application.ScreenUpdating = True
    ' tell user
    MsgBox "Printed last transactions- please collect from default printer"

End Sub

If you want to pick a printer, you'll need to replace the line in bold. If you change your highlight from red, you'll need to change the 255 value.

Hope this fixes your problem. If so, please remember to mark this Answer as Selected.