スキルアップ・問題解決なら、モーグにおまかせ！

引用:
型が一致しません

引用:
Cells(20, 6) = Cells(10, 6) - Cells(8, 6)

一方または両方のセルの値が、数値データに
変換することができない文字列だからでしょう。
 
そういう文字列を使って - 演算子による減算処理を行なうことは出来ません。
 

引用:
=IFERROR(VLOOKUP(F7,J:K,2,0),"")

引用:
=IFERROR(VLOOKUP(F9,J:K,2,0),"")

・VLOOKUP 関数が数値データに変換することができない文字列を返している。
 
・VLOOKUP 関数の戻り値が #N/A エラーになった結果、
　IFERROR 関数によって空文字列が返されている。

akibacom さんの引用:

１５００とか１５２０とかの数字です
 

 
↓コードを変應してみてましょう
 
Cells(20, 6) = Cells(10, 6) * 1 - Cells(8, 6) * 1

引用:
VBAでRSSを使いサイトから取ってきた
１５００とか１５２０とかの数字です

ならばその取得したデータ自体がそういう文字列だからか
（例えば何らかの特殊記号が含まれているなど）、
データの取得の仕方に問題があるのではないでしょうか。
 
とりあえず、次のような形で各セルの値の判定を行なってみて下さい。
 
------------------------------------------------------------------
Sub TestMacro1()
     
    'F10セルの判定
    With Cells(10, 6)
        If IsNumeric(.Value) = False Then
            MsgBox .Address(False, False) & "セルの値""" & .Value & """は数値データに変換できない文字列です。", _
                   vbExclamation, _
                   "エラー"
                   Exit Sub
        End If
    End With
 
    'F8セルの判定
    With Cells(8, 6)
        If IsNumeric(.Value) = False Then
            MsgBox .Address(False, False) & "セルの値""" & .Value & """は数値データに変換できない文字列です。", _
                   vbExclamation, _
                   "エラー"
                   Exit Sub
        End If
    End With
 
    Cells(20, 6) = Cells(10, 6) - Cells(8, 6)
 
End Sub
------------------------------------------------------------------

akibacom さんの引用:

この状態で動かすと型が一致しませんとエラー出ます

akibacom さんの引用:
見た目はすべて
１５００
１５２０
とかの整数です

ExcelVBAは、計算出来ないとエラーを出しています。このエラーは文字列など、数値に型変換出来ないときのエラーです。整数のはずだとのことですが、セル値を目視で確認ではなく、実際にVBAが取得している値を調べなければ原因はわかりません。
 
考えられる原因は
・そもそもセルアドレスが間違い。
・数値だと思ってたら数値間に余計なスペースがあった。
・異常に文字列が長くて末尾に文字があり、でも、画面には先頭の4文字しか表示せず。
など。
下記のコードを実行して、ExcelVBAが実際に取得したセル値と数値判定、セルアドレスを確認しましょう。
 

With Cells(10, 6)
  Debug.Print .Value, IsNumeric(.Value), .Address
End With
With Cells(8, 6)
  Debug.Print .Value, IsNumeric(.Value), .Address
End With