Excelのマクロに関する質問です。良い回答は、500～1000ポイント差し上げます。

ちょっと前提条件がずれているかもしれませんが・・・
[りんご]シートや、[みかん]シートに入力したとき、
[リスト一覧]シートから、データを拾ってくれば良いのですよね？

関数だけで回答します。

【作業１】
[リスト一覧]シートに作業列を作ります。
作業列は、[都道府県]-[品質]になるように文字を結合します。
A4セルなら　=B4&"-"&D4　でＡ列にコピーします。
邪魔なら、非表示にしてください。
都道府県(検索や抜き出すデータ)より前(左側)に作るのがポイントです。

[リスト一覧]シート
3 作業列 　　　都道府県　送料　　　品質
4 青森-ＡＡ　　青森　　　元払い　　ＡＡ
5 岩手-ＡＡＡ　岩手　　　着払い　　ＡＡＡ
6 愛媛-ＡＡ　　愛媛　　　相談　　　ＡＡ
7 愛知-ＡＡＡ　愛知　　　元払い　　ＡＡＡ

【作業２】
[りんご]シートと[みかん]シートのデータを拾ってきたい
セルに以下のVLOOKUP関数でデータを拾ってきます。

F4セル（送料）なら
=VLOOKUP(A4&"-"&B4,リスト一覧!$A$4:$D$7,3,FALSE)

[リスト一覧]シートにデータが無いと、#N/Aエラーになりますので、
気になるようなら、ERROR.TYPE関数などで弾いて、

=IF(ISERROR(VLOOKUP(A4&"-"&B4,リスト一覧!$A$4:$D$7,3,FALSE)),"",VLOOKUP(A4&"-"&B4,リスト一覧!$A$4:$D$7,3,FALSE))

などとすればよいかと。

作業列を作るのは、VLOOKUP関数が、複数の列のセルを検索することができないためです。
参考になれば。

Sub jikko()
Dim aa(2) As Worksheet
Dim a1 As Worksheet

Set a1 = Worksheets("リスト一覧")
Set aa(1) = Worksheets("りんご")
Set aa(2) = Worksheets("みかん")

For c = 4 To a1.Cells(a1.Rows.Count, "A").End(xlUp).Row
    都道府県 = a1.Cells(c, "A")
    送料 = a1.Cells(c, "B")
    品質 = a1.Cells(c, "C")
    
    For c1 = 1 To UBound(aa)
        For c2 = 4 To aa(c1).Cells(aa(c1).Rows.Count, "A").End(xlUp).Row
            If aa(c1).Cells(c2, "A") = 都道府県 And aa(c1).Cells(c2, "B") = 品質 Then
                aa(c1).Cells(c2, "F") = 送料
            End If
        Next c2
    Next c1

Next c

End Sub