Копирование данных с ексель в текстовый файл

Private Sub Command1_Click()
    Dim oExcel As Object
    Dim oSheet
    Dim uT As Integer
Set oExcel = CreateObject("Excel.Application")           ' создаю объект ексель
oExcel.Workbooks.open("D:\Primer\2.xls").Activate      ' открываю файл
oExcel.Visible = True                                              ' отображаю
Set oSheet = oExcel.Workbooks("2.xls").WorkSheets(1)
uT = 11
oSheet.Range("H" & uT).Select                                'выделяю ячейку
oSheet.Cells(Rows.Count, "H").End(xlUp).Row             'тут хочу найти последнюю пустую ячейку, но мне выдает ошибку

Dim n&
n = oSheet.Cells(oSheet.Rows.Count, "H").End(-4162).Row + 1

Private Sub Command1_Click()
    Dim oExcel As Object
    Dim oSheet As Object
    Dim uT As Integer
    Dim n As Integer
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Open("D:\Primer\2.xls").Activate
oExcel.Visible = True
Set oSheet = oExcel.Workbooks("2.xls").Worksheets(1)
uT = 11                                                                 ' переменная для начала выделение диапаона
n = oSheet.Cells(oSheet.Rows.Count, "H").End(xlUp).Row - 2  ' находим посленюю заполненную ячейку в столбце Н
oSheet.Range("H11:H" & n).Copy ' здесь пытаюсь скопировать диапазон, но мне выдает ошибку. см. выше.
' дальше если получится скопировать диапазон, хочу вставить данные в текстовый файл например [url]www.txt[/url]
End Sub

oSheet.Range("H" & uT & ":" & "H" & n).Copy

dim ff%
ff = freefile()
open "c:\file.txt" for output as #ff
for n = 11 to n
  print #ff, oSheet.Cells(n, "H")
next
close #ff

dim ff%, RA as object
ff = freefile()
open "c:\file.txt" for output as #ff
for each RA in oSheet.Range("H11:H" & n).Cells
  print #ff, Ra.value
next
close #ff