Select row and column, from to the last data

[Visor]

Dear friends, greetings, as it should make for a selected range of cells but particularly to and from the last row with data, whatever the data column since columns have variable number of data
I appreciate your cooperation in advance

 

[Nebu]

Hi:

May Be something like this

i& = Hoja1.Cells(Rows.Count, "A").End(xlUp).Row
Range("A3:I" & i).Select

Thanks

 

[Visor]

Greetings, thank,... the macro that you have sent me, pick up the last column with data but not until the last row with data, look at it !!

Note: Any column can generate the last row with data

 

[Marc L]

Hi !

See UsedRange property …
​

 

[Visor]

Thanks Marc L, but for example this:

Hoja1.UsedRange.Select

It includes headers, which are in row 2, which do not want to delete

as I exclude row 2?

 

[Nebu]

Hi:
As Marc L mentioned use used range

With ActiveSheet.UsedRange
        i& = .Rows(.Rows.Count).Row
End With
Range("A3:I" & i).Select

Thanks

 

[Visor]

Hi Nebu:
result:

is good but I dont understand why I and not "G" this can diferent

 

[Nebu]

Hi:

The reason why it is selecting till column I is because I had hard coded it. Assuming that your column A will always have data here is an alternate code.

This will select the range if there is headers in your example till column H , if you want to select only till column G delete the header in column H

With ActiveSheet.UsedRange
        i& = .Rows(.Rows.Count).Row
        j& = .Columns(.Columns.Count).Column
End With
Range(Cells(3, 1), Cells(i, j)).Select

Thanks

 

[Visor]

Thanks!!!

With your help and Marc L, I could solve my problem
issue solved

 

[Marc L]

Other way to delete rows excluding headers :

Range("A2").CurrentRegion.Offset(1).Clear …
​