Excelの関数およびマクロ等に詳しい方におすすめです。

Sub main()
    Dim a As Long
    Workbooks.Open Filename:="テストブックA.xls"
    For a = 1 To Columns.Count
        If Workbooks("テストブックA.xls").Sheets("テストシートA").Cells(1, a) = 26 Then
            ThisWorkbook.Sheets("テストシートB").Range("A1") = Workbooks("テストブックA.xls").Sheets("テストシートA").Cells(9, a)
            Exit For
        End If
    Next a
    Workbooks("テストブックA.xls").Close
End Sub

8列下とあるけど 列は 左右です。

1行目から 8行下ということは 9行目ということでいいんですよね？

（１）もっとも単純な式

=HLOOKUP(26,[テストブックA.xls]テストシートA!1:9,9,FALSE)

※上の式を入力するときはテストブックA.xlsを開いた状態で入力してください
※正常に機能した後であればテストブックA.xlsは閉じていてもかまいません。
※ファイルを開くときに「ほかのファイルへの自動リンクが設定されています。」が出ますので、
　面倒ですが「はい」を選択してください。以下同様です。

（２）該当なしの時にエラーになると嫌な場合はエラー処理も入れる

=IF(
    ISERROR( HLOOKUP(26,[テストブックA.xls]テストシートA!1:9,9,FALSE) ),
    "×",
    HLOOKUP(26,[テストブックA.xls]テストシートA!1:9,9,FALSE)
)

※構造をわかりやすくするため行を分けてますが一行に書いてもかまいません。

（３）関連事項です。下記も参照しておいてください。
http://office.microsoft.com/ja-jp/excel-help/HP005209114.aspx
http://office.microsoft.com/ja-jp/excel-help/HP010102338.aspx


余計なお世話
マクロを知ってしまうとうれしくて使いたくなる人が多いのですが、
Excelが本来持っている基本機能をおろそかにするとマクロもうまく使いこなせません。
基本機能を知らない人ほどマクロに走ってしまいがちで、
操作する対象の基本を知らずに作ったマクロそのものもお粗末になりますので注意しましょう。

余計なお世話2
マクロも、関数によるリンクも、ファイルを跨ぐとどうしても、ファイルの保存場所や随時反映が出来なかったりと色々制約が出てきます。
僕なら極力一つのファイルに纏めます。


自分だけで使うならまだしも人に渡す可能性が有るならあり得ないです。

Sub main()
    Dim a As Long
    Workbooks.Open Filename:="C:\Users\kopp\Documents\VBA\4\テストブックA.xls"
    For a = 1 To Columns.Count
        b = Workbooks("テストブックA.xls").Sheets("テストシートA").Cells(1, a)
        If IsNumeric(b) Then
            If b >= 26 Then
                c = b - 24
                ThisWorkbook.Sheets("テストシートB").Cells(c, "R") = Workbooks("テストブックA.xls").Sheets("テストシートA").Cells(9, a)
            End If
        End If
    Next a
    Workbooks("テストブックA.xls").Close
End Sub

これで 全部セットされるかと思います。