I\'m using Union to append to a range in a function:
Public Function appendRange(col, pRowStart, pRowEnd, rng, sheetObj) Dim rngBox01 As range Set rngBox