插入字符串到指定文本的第一行和最后一行，要如何写代码？

1234vba

手上有一份 隔壁论坛 的赵老师的代码
该代码是插入第一行和第三行，

1. 
   
2. Sub Insert()
   
3.     On Error Resume Next
   
4.     Dim objFSO As Object, objFile As Object, i As Long
   
5.     Dim txtpath As String, d As String, allt, s As String
   
6.     txtpath = ThisWorkbook.Path & "\test.txt"
   
7.     Set objFSO = CreateObject("Scripting.FileSystemObject")
   
8.     Set objFile = objFSO.OpenTextFile(txtpath, 1)
   
9.     d = objFile.ReadAll
   
10.     allt = Split(d, vbCrLf, -1, 1)
    
11.     objFile.Close
    
12.     Set objFile = objFSO.createtextfile(txtpath, 1)
    
13.     s = "插入的内容1" & vbCrLf
    
14.     For i = LBound(allt) To 1
    
15.         s = s & allt(i) & vbCrLf
    
16.     Next
    
17.     s = s & "插入的内容2" & vbCrLf
    
18.     For i = 2 To UBound(allt)
    
19.     s = s & allt(i) & vbCrLf
    
20.     Next
    
21.     objFile.write s
    
22.     objFile.Close
    
23.     Set objFile = Nothing: Set objFSO = Nothing
    
24. End Sub
    

复制代码

我要插入第一行和最后一行数据

UBound(allt)获得文本行数后，
我尝试修改代码。。。。
代码最后只得到4个数据了。包括插入的第一行和第三行。
好奇怪

请各位老师帮忙
谢谢

1234vba

下面这段代码能定位选择最后一行：
Sub 定位最后一行()
Range("a65536").End(xlUp).EntireRow.Select
End Sub
　　如果需要定位选择最后一行数据行的下一行，可以使用下面的代码：
Sub 定位最后一行的下一行()
Range("a65536").End(xlUp).Offset(1, 0).EntireRow.Select
End Sub

1234vba

各位老师晚上好

1234vba

晚上好各位老师

1234vba

老师们下午好