Removing 1st four rows from a range
 

Could someone please tell me if there is an elegant way include all of
collums G-L minus the first 4 rows in a range.

I can select all of columns G-L with something like:

Dim priCol as Range
Set priCol = ActiveSheet().Range("G1:L1").EntireColumn

Then I would like to be able to remove just the first 4 rows from this
range.

I can kludge it by using the the 'usedRange.address' properties like this:

dim secCol as Range
Set rusedRange = ActiveSheet().UsedRange
sAddress = rusedRange.Address
pos = InStr(1, sAddress, ":", vbTextCompare)
sAddress = Mid(sAddress, pos, Len(sAddress))

Set secCol = ActiveSheet().Range("G4" & sAddress)
secCol.Select

However I feel that this way is inelegant, and that there is probably a
better way. Could someone please point me to this better way.

-Many Thanks!!

Removing 1st four rows from a range
 

Range("g5", Range("l5").End(xlDown)).Select

mcg