Variable Range Size

[dtaylor]

Hello All,

I have file that with each update the needed range will vary in size, number of rows and columns will change.

What I am trying to do is be able to select this range.

so far this is what I have:
Range("a65536").End(xlUp).Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Select

This selects only the last row to the last column. What I need to also select all data that precedes. I have searced this board and tried some variations but to now avail.

If someone can fill in the missing piece or direct me in the right direction I would be very appreciated.

Thanks

Dan

 

[zzydhf]

Here is one I have used:
Sub SET_PRINT_AREA3()
Dim range_name, print_range As String
Range("A65536").Select
Selection.End(xlUp).Select
If ActiveCell.Offset(0, 1) <> "" Then
Selection.End(xlToRight).Select
Else
'probably should error out here...
End If
print_range = ActiveCell.Address
range_name = "$A$1:" & print_range
ActiveSheet.PageSetup.PrintArea = range_name
End Sub

 

[zzydhf]

Here is another, but it only works if your data goes all the way up to row1:
Sub Macro1()
Selection.End(xlDown).Select
Range("A65536").Select
Selection.End(xlUp).Select
Selection.End(xlToRight).Select
Range(Selection, Cells(1)).Select
End Sub

 

[dtaylor]

thanks zzydhf...
although I did not use your suggestions on this project I know I will incorp later.

What I did do was use the statement

Range(Range("a1"), ActiveCell.SpecialCells(xlCellTypeLastCell)).Select

and this worked great! I am aware that this code will go to the last used cell so I had to add another line that cleaned out the previous data!

thanks for your suggestions! This is an awesome site..my hat goes off to Mr.Excel