将动态范围的数据格式化为文本

Question

我正在尝试将数字字符串转换为9位数字的文本。每次运行时，该列的长度都会有所不同。

尝试使用类似的方法来查找LastRow。

Sub Macro3()
'
Dim LastRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data Validation")

Sheets("Data Validation").Select

Cells.Replace What:="-", Replacement:="", LookAt:=xlPart, SearchOrder:= _
    xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

LastRow = ws.Cells.find(What:="*", After:=ws.Cells(1, 1), 
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, 
MatchCase:=False).Row

Set rng = Cells(LastRow, 15)

Range("O2").Select
ActiveCell.FormulaR1C1 = "=TEXT(RC[-4],""000000000"")"
Range("O2").Select
Selection.AutoFill Destination:=Range("O2:rng")


End Sub

我希望我的文本格式可以扩展到现有数字的整列。当前，我正在获取对象_Global的方法范围失败错误消息。