How to extend Range.AutoFill Destination down an addition 3 rows?

**BBoydAnchor** · 12-29-2011, 04:11 PM

With my last post, I was able to use the code in another part of my macro, but it needs to extend an extra 3 rows. I'm sure this has to do with offset, but have tried several different way and only get errors.

Here is the code and it autofills down to the last row, but how can it continue past for 3 more rows? There is another part of the macro that will add data to the sheet for an additional 3 rows and would like not having to copy and drag as it should be easier.

    Dim LastRow As Long
    LastRow = Range("I" & Rows.Count).End(xlUp).Row
    Range("K5:L5").AutoFill Destination:=Range("K5:L" & LastRow)

**JP Romano** · 12-30-2011, 11:00 AM

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?

**BBoydAnchor** · 12-31-2011, 10:51 AM

Thanks JP. Adding the "+ 3" to the code did exactly what I wanted it to do. I knew it was probably a simple solution, but could not figure it out. Thanks and I hope you have a Happy New Year!

Brian