Offset from the precedent in formula in another Sheet

Numerical sheets refer to "base" sheet. I would like to have a formula or other vba which allows me to find a value in Base and return it in the numerical sheet.

F2 in "1" = F2 in "base" - I need to insert K2 from "Base" into J2 in "1"
F2 in "2" = F26 in "base" - I need to insert K26 from "Base" into J2 in "2"
F2 in "3" = F51 in "base" - I need to insert K51 from "Base" into J2 in "3"

And so on - the 25 row gap is constant.

Any help would be appreciated

steve

Sub ProcessStuff()
    Dim ws As Worksheet
        For Each ws In ActiveWorkbook.Worksheets
        If Not IsNumeric(ws.Name) Then GoTo NextSht
        ws.Select
        Call GetRngColF
        Call DoOffSet
NextSht:
    Next ws
    Sheets("Base").Select
   
End Sub
Sub GetRngColF()
    Dim RngColF As Range
    Set RngColF = Range("f2", Range("f" & Rows.Count).End(xlUp))
    
End Sub
Sub DoOffSet()
    With RngColF.Offset(, 4)
    .FormulaR1C1 = "=Offset(precedent(Rc4),0,5)" 'this is where I want to access the precedent in Base
    .Value = .Value
    .NumberFormat = "0.00"
    End With
End Sub

I'm still struggling with this and have come up with the following as an alternative to my original post. Running only the first WITH statement works perfectly, but when I continue the procedure there are 2 problems. First, the second WITH (even if I manually select Sheet 2 first) runs its formula in sheet 1. Secondly it gives a #VALUE! result.

As will be shown by my fumbling attempts, my expertise is not great. Any assistance with either lot of code would be very gratefully received.

Steve

Sub ProcessStuff()
Dim RngColF As Range
Set RngColF = Range("f2", Range("f" & Rows.Count).End(xlUp))
Sheets("1").Activate
With RngColF.Offset(, 7)
    .FormulaR1C1 = "=if(or(R14C35=""Sally"",R14C35=""Tony""),Base!r2C126:R25c126,Base!r2C125:R25c125)"
End With
Sheets("2").Activate
With RngColF.Offset(, 7)
    .FormulaR1C1 = "=if(or(R14C35=""Sally"",R14C35=""Tony""),Base!r26C126:R50c126,Base!r26C125:R50c125)"
End With
Sheets("3").Activate
'Etcetera
End sub

Have played some more and by adding "Set RngColF = Range("f2", Range("f" & Rows.Count).End(xlUp))" after each sheet activation, it removes problem 1. Not pretty, but one step in the right direction.

Steve

Thanks for your reply Ford. I've attached a file and altered my second lot of code as follows. Both efforts should produce the same result in the sample file Sheet 1, but I hadn't got to the IF statement with the first attempt, so it only looks at one column (if it worked), so sheet 2 would give a different result for the first lot of code.

Appreciate any help you can provide. I need to go out for a few hours, so please don't think me rude if I don't respond to any further advice immediately.

Steve

Sub ProcessStuff2()
Dim RngColF As Range
Set RngColF = Range("f2", Range("f" & Rows.Count).End(xlUp))
Sheets("1").Activate
With RngColF.Offset(, 4)
    .FormulaR1C1 = "=if(or(R14C35=""Sally"",R14C35=""Tony""),Base!r2C11:R25c11,Base!r2C10:R25c10)"
End With
Sheets("2").Activate
Set RngColF = Range("f2", Range("f" & Rows.Count).End(xlUp))
With RngColF.Offset(, 4)
    .FormulaR1C1 = "=if(or(R14C35=""Sally"",R14C35=""Tony""),Base!r26C11:R50c11,Base!r26C10:R50c10)"
End With
'Sheets("3").Activate
'Etcetera
End Sub

Perseverance Pays! Finally have worked out some code that works. It looks cumbersome to me (there will be 10+ sheets) and if any body can show me a better way I'd be grateful.

Will leave open for a day or so in hope, then mark Solved.

Steve

Sub Destination()
    Sheets("Base").Activate
    If Sheets("1").Range("AI14") = "Sally" Then
        Range("J2:J25").Copy Destination:=Sheets("1").Range("M2")
        ElseIf Sheets("1").Range("AI14") = "Tony" Then
        Range("J2:J25").Copy Destination:=Sheets("1").Range("M2")
        Else: Range("K2:K25").Copy Destination:=Sheets("1").Range("M2")
    End If
    
    If Sheets("2").Range("AI14") = "Sally" Then
        Range("J26:J50").Copy Destination:=Sheets("2").Range("M2")
        ElseIf Sheets("2").Range("AI14") = "Tony" Then
        Range("J26:J50").Copy Destination:=Sheets("2").Range("M2")
        Else: Range("K26:K50").Copy Destination:=Sheets("2").Range("M2")
    End If
      
    If Sheets("3").Range("AI14") = "Sally" Then
        Range("J51:J75").Copy Destination:=Sheets("3").Range("M2")
        ElseIf Sheets("3").Range("AI14") = "Sally" Then
        Range("J51:J75").Copy Destination:=Sheets("3").Range("M2")
        Else: Range("K51:K75").Copy Destination:=Sheets("3").Range("M2")
     End If
End Sub