цикл на проверку значения в ячейке

[vlgolu]

If Range("A13") = ("1") Then
    Sheets("Таблица").Visible = True
    Sheets("Таблица").Select
    Range("S15").Select
    Selection.Copy

в данном коде следующая запись

ElseIf Range("A13") = ("2") Then
    Sheets("Таблица").Visible = True
    Sheets("Таблица").Select
    Range("S16").Select
    Selection.Copy

как это записать циклом, так как этих повторений на проверку 38, после чего значение которое скопировалось, вставляется в ячейку:

Sheets("ТК").Select
Range("A3").Select
ActiveSheet.Paste

[doober]

Можно и без цикла

 If Val(Sheets("Неизвестный").Range("A13")) > 0 Then
    Sheets("ТК").Range("A3") = Sheets("Таблица").Range("S" & 14 + _ 
 Val(Sheets("Неизвестный").Range("A13")))
    End If

[vlgolu]

Спасибо, сейчас попробую.