使用 Range.End 方法可以替代 .select 方法来选择一个单元格或一组单元格。下面是一个示例代码：

Sub TestRangeEnd()
    Dim rng As Range
    Dim lastCell As Range
    
    ' 设置要操作的范围
    Set rng = Range("A1:A10")
    
    ' 使用 Range.End(xlDown) 方法选择范围的最后一个单元格
    Set lastCell = rng.End(xlDown)
    
    ' 输出最后一个单元格的值
    MsgBox lastCell.Value
    
    ' 使用 Range.End(xlToRight) 方法选择范围的最后一个单元格
    Set lastCell = rng.End(xlToRight)
    
    ' 输出最后一个单元格的值
    MsgBox lastCell.Value
End Sub

在上面的代码中，我们首先将要操作的范围设置为 "A1:A10"。然后，使用 Range.End(xlDown) 方法选择范围的最后一个单元格，并将其赋值给变量 lastCell。最后，使用 MsgBox 输出最后一个单元格的值。

同样的，我们也可以使用 Range.End(xlToRight) 方法选择范围的最后一个单元格，并输出其值。

请注意，Range.End 方法根据范围中的数据的布局和内容来选择最后一个单元格。在某些情况下，可能需要调整代码以适应特定的数据布局。