Excel VBAselect最后一行Ctrl在工作表中结束

如何调整下面的代码来处理VBA(我认为是xlLastCell或xlCellTypeLastCell)的crtl shift end的等价物?

我的工作表有64列,我只想select列1到58,我有第2行开始的数据。下面的工作,除非工作表是空白的,然后从第2行到1048575所有行被选中。 因为我保护下面的行200,000我的脚本错误下面的单元格。

With Worksheet(WorkSheet) .Range(.Cells(2,1).End(XlDown),.Cells(2,58)).Select End With Selection.ClearContents 

从第20万行开始查找。

 With Worksheet(WorkSheet) .Range(.Cells(200000, "A").End(XlUP), .Cells(2, "BF")).ClearContents End With 'possible alternate to avoid clearing row 1 With Worksheet(WorkSheet) .Range(.Cells(200000, "A").End(XlUP).offset(1, 0), .Cells(2, "BF")).ClearContents End With