not sure what you mean, is this anywhere near what you want?

Dim lastrow As Long

Sub test()
lastrow = Cells(Rows.Count, Range("a2").Value).End(xlUp).Row
Worksheets("Sheet1").Range(Cells(2, 1 + Range("A2")), Cells(lastrow, 2 + _
Range("a2"))).Select
End Sub
--


Gary


"Bri" wrote in message
...
I'm having trouble modifying a line of code. As shown the code selects the
data in columns A:C from row 2 down the the last row with data in A. This
work fine.

Worksheets("Sheet1").Range("A2:C" & Range("A2").End(xlDown).Row).Select

Here's my problem. I need to keep offsetting this calculation by 4 columns
using an integer n. If n=1, the code is as above. If n=2, the code should
select the data in columns E:G from row 2 down the the last row with data in E
(that very last part about E is where I'm stuck).

I'd be grateful for help with this
Bri