Observações sobre o código:

- Substitua o "D1" pelo range onde começa a sua coluna dos F's

- A segunda linha vai dar um Control + Seta pra baixo pra chegar no último valor preenchido da coluna, supondo que não haja espaços em branco entre os F

- Conte quantas colunas há entre a coluna dos F's e a Coluna onde deseja colocar o nº 1 e insira esse valor na linha do offset no lugar do 5. Esse comando anda 0 linhas e 5 células pra direita, caso fosse pra esquerda seria -5.

  

Range("D1").Select
Range(Selection, Selection.End(xlDown)).Select
If ActiveCell.Value = "F" Then
ActiveCell.Offset(0, 5).Value = 1
End If

Skuden, obrigada pela resposta...
Testei e não deu certo, pq há espaços entre os "F", eles são colocados quando os funcionários faltam, essa coluna recebe valores (qtde de colheita) exemplo:
A | B | C | D | E | F | G | H |
DATA |CÓDIGO | FUNCIONÁRIO | COLHEITA | MÊS | SEMANA | QUINZENA | FALTAS |

são apontados diariamente o resultado dessa colheita, e quando a há faltas em vez de colocarmos a qtde na coluna D [COLHEITA] colocamos a letra F, utilizando sua macro ela trava no intervalo até onde aparece o F... porém eles são aleatórios e a planilha é utilizada como se fosse um banco de dados.

Melhor disponibilizar a planilha com alguns dados explicando o que precisa assim o ajuste acontece de acordo com a necessidade.

Deu certo com essas alterações, obrigada!!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Value = "F" Then
ActiveCell.Offset(0, 5).Value = 1

End If

End Sub

Deu certo com essas alterações, obrigada!!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Value = "F" Then
ActiveCell.Offset(0, 5).Value = 1

End If

End Sub

Eu já ia sugerir para editar o código desta forma. Boa!