Expand a range by rows and columns

  • Thread starter Thread starter Emma Aumack
  • Start date Start date
E

Emma Aumack

Hi All,

I need to know how to expand a range by 2 rows. Here is what I have:

FinalRow = Range("A1").End(xlDown).Select

Now I need to come down 4 more rows and over 14 columns. I don't want to
use Cell References. I want to use relative references if at all possible.

How do I do that???

Your help is much appreciated.
 
Do you want A1 through the last used row in column A then extended to 14
columns?

Dim myRng as range
dim LastRow as long
with activesheet
LastRow = .cells(.rows.count,"A").end(xlup).row
set myrng = .range("A1", .cells(lastrow + 4, 14))
end with

myrng.select 'you probably don't have to select the range to work with it.
 
Another way using Resize..

Sub Macro()
Dim myRange As Range, finalRow As Long
finalRow = Range("A1").End(xlDown).Row
Range("A1").Resize(finalRow + 2, 14).Select
Set myRange = Range("A1").Resize(finalRow + 2, 14)
End Sub

If this post helps click Yes
 
Back
Top