Excel VBA macro to paste multiple ranges

[_Pat_S]

Hi, I have found a macro that I was able to modify and use and (sort of) understand, but for the life of me I can't figure out how to do the next step for what I am attempting.

https://www.rondebruin.nl/win/s1/outlook/bmail2.htm

Above is what I am using - I am using 'find last row' to define the value and that part works. The main part of the macro works, all hunky dory.

What I am trying to do is have a named range in every email that doesn't change (essentially the header for my document).

So what it currently does, is pasts the last row of the document, columns A:O.

What I am trying to figure out is possible, is if it can do the first row (A1:O1) in addition to that last row. It feels like it should be simpler than I am making it. Been messing around with it for hours but haven't had much luck.

 

[NoSparks]

with the named range of Headers, try

Set rng = Union(Range("Headers"), Range("A" & lr & ":O" & lr)).SpecialCells(xlCellTypeVisible)