Help Selecting Every Column Without Text

[RunTime91]

Greetings ~

I have a sheet with records and the rest of the sheet (all the way out to column WXT) has some sort of formating so when I try to get a column count it brings back 16112 columns

instead of the 64 with actual data


My approach is to simply delete the cells in row 1 which lie beyond the last cell with an actual header name -


I am currently using just to make sure I'm selecting every cell in the 1st row beyond the header fields and, of course it does not

Range("A1").End(xlToRight).Offset(0, 1).Resize(, Columns.End(xlToRight).Column).Select

So how can I clear all cells beyond the actual data rows/fields so they wont get counted?


Thank you for you help

 

[Leith Ross]

Hello Runtime91,

What code are you using to count the cells?

Are there columns with headers and no data?

 

[RunTime91]

Hey Leith ~!

Thank you so much for stepping in on this ~

I found a solution in the code below

Foo = Sheet1.UsedRange.Rows.Count
Foo = Sheet1.UsedRange.Columns.Count