Sorry if this shows up twice - not sure if my response posted but I just don't see it, but...

If all you want to do is extend the range, just add the desired number to the variable:
LastRow = Range("I" & Rows.Count).End(xlUp).Row + 3

Is that what you're after?