Get last used column address using current region property

Greetings,

I have attached an image a look like of my input file. In this, I need to get the address of the highlighted portion. I have used 1 as the reference value. Sheets("Sheet1").Cells.Find("1",sheets("Sheet1").Range("A1"),xlvalues,xlwhole).Offset(0, 1).CurrentRegion.address returns "B5:F11"(doesn't consider the columns after blank). But I'd like to get the address as "B5:J11". Please help me in achieving this.



Note:
1) Input may vary
2) I've some data in column K. It may vary based on the input and k column values can overlap with 5th row.

Please help me to solve this!!!

Thanks in Advance!!!