Datumsvergleich - dann Zellen fuellen

Mein Makro sucht in Spalte1 von Tabelle2 nach einem frueheren Datum und einem spaeteren Datum, die in Tabelle1 in 2 Zellen eingetragen wurden. Dann wird jeweils ein "t" in die naechste Spalte gesetzt.
Nun habe ich folgendes Problem:
Wie kann ich nun zwischen den beiden "t" in jede Zelle ein "p" setzen lassen?

Hier der obige Code:

'Input: Schedule
Dim TB1 As Worksheet, TB2 As Worksheet
Dim fCellArr As Range
Dim fCellDep As Range


Set TB1 = Worksheets("Input Screen")
Set TB2 = Worksheets("Engineer Costs")
Set fCellArr = TB2.Columns(1).Find(DateValue(TB1.Range("P5")))
fCellArr.Offset(0, 3) = "t"

Set TB1 = Worksheets("Input Screen")
Set TB2 = Worksheets("Engineer Costs")
Set fCellDep = TB2.Columns(1).Find(DateValue(TB1.Range("T5")))
fCellDep.Offset(0, 3) = "t"