ExcelのVBAで特定の文字の最終行と最初の行を探す方法で、file.xlsmのデータから範囲してtbl_data.xlsファイルにデータを貼り付けるVBAですが、このコードだと型が一致しないとエラーが表示されます。

どのように修正すればいいでしょうか。

Sub try()
 Dim r As range
 Dim rr As range
 Dim aju As range
 Dim ajuu As range
 Dim aku As range
 Dim akuu As range

 Set r = Columns("D").Find("T140420001", After:=range("D" & Rows.Count))
 Set rr = Columns("D").Find("T140420001", After:=r, SearchDirection:=2)
 Set aju = Columns("AJ").Find("Upper13", After:=range("AJ" & Rows.Count))
 Set ajuu = Columns("AJ").Find("Upper13", After:=aju, SearchDirection:=2)
 Set aku = Columns("AK").Find("Lower13", After:=range("AK" & Rows.Count))
 Set akuu = Columns("AK").Find("Lower13", After:=aku, SearchDirection:=2)

 range(r, rr).Select
 range(aju, ajuu).Select
 range(aku, akuu).Select

    Windows("file.xlsm").Activate
    range("AD7:AE16").Select
    Selection.Copy
    Workbooks("tbl_data.xls").Activate
    ActiveWindow.SmallScroll Down:=-3
    range(Cells(r.Row, aju.Column), Cells(rr.Row, akuu.Column)).Select '変更範囲
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("file.xlsm").Activate

 End Sub