オブジェクト定義エラー - 情報の最後の行までの範囲のコピー

Question

ブックを開き、A7からL7までの範囲を最後の情報行（下方向）まで選択してコピーしようとしています。変数が適切に定義されていないと思います。どんな助け？

Sub Subtotals() 
Dim DT As Workbook 
Dim lRowDT As Integer 


Set DT = Workbooks.Open("C:\Users\ricardo\Desktop\Data Fuel.xls") 
lRowDT = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 

Workbooks("Data Fuel.xls").Worksheets("Data").Activate 
Worksheets("Data").Range("A7:L" & lRowDT).Copy 

End sub 

Answer 1

カラムL以上のデータがない場合は、このコードが適しています。

Sub Subtotals() 
Dim DT As Workbook 
Dim lRowDT As Integer 
Dim Ws As Worksheet 
Dim rngDB As Range, r As Long, c As Long 

    Set DT = Workbooks.Open("C:\Users\ricardo\Desktop\Data Fuel.xls") 
    'lRowDT = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 

    Set Ws = Workbooks("Data Fuel.xls").Worksheets("Data") 
    With Ws 
     r = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
     c = .Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column 
     Set rngDB = .Range("a7", .Cells(r, "L")) 
    End With 
    rngDB.Copy 
End Sub