VBA - Copy only visible rows

[kgkev]

I have the following code to copy and paste some data

    Sheets("High Priority").Range("A4", Sheets("High Priority").Range("B56000").End(xlUp)).Copy Destination:=Sheets("to order").Range("B56000").End(xlUp).Offset(1)
    Sheets("High Priority").Range("K4", Sheets("High Priority").Range("K56000").End(xlUp)).Copy
    Sheets("to order").Range("D56000").End(xlUp).Offset(1).pastespecial xlValues

However it is copying all the data including the hidden rows.

how do I get around this?

 

[VoG]

Try like this

Sheets("High Priority").Range("A4", Sheets("High Priority").Range("B56000").End(xlUp)).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("to order").Range("B56000").End(xlUp).Offset(1)