Dynamic Range in For Loop

Hello,

I have the below code:

Sub GoalSeekMultipleCells()
Dim StartDate As Date
Dim Find As Range
Dim ReqSheet As Worksheet


Set ReqSheet = Worksheets("REQ SHEET")
StartDate = ReqSheet.Range("D1").Value
Set Find = ReqSheet.Range("A3:AH3").Find(What:=StartDate)

For p = 4 To 30
Cells(p, "t").ClearContents
If Cells(p, "x") < Range("X2").Value Then
On Error Resume Next
Cells(p, "t").Value = Cells(p, "i").Value * Range("X2").Value - Cells(p, "w").Value
Cells(p, "t").Value = Round(Cells(p, "t").Value, 0)
End If
Next p
End Sub

This code works fine in the set ranges of T4:T30, W4:W30, and X4:X30 but now I would like to make these ranges dynamic.
For example, based on the Date in D1, find that date in Row 3, and work in that area. Would this be possible using Offset?

Similar approach to Crooza's one above

Sub GoalSeekMultipleCells()
    Dim StartDate As Date
    Dim Find As Range
    Dim ReqSheet As Worksheet
    Dim col As Long    

    Set ReqSheet = Worksheets("REQ SHEET")
    StartDate = ReqSheet.Range("D1").Value
    Set Find = ReqSheet.Range("A3:AH3").Find(What:=StartDate)
    col = ReqSheet.Range("3:3").Find(ReqSheet.Range("D1"), , xlValues, xlWhole).Column 
   
    For p = 4 To 30
        Cells(p, col).ClearContents
        If Cells(p, "x") < Range("X2").Value Then
            On Error Resume Next
            Cells(p, col).Value = Cells(p, "i").Value * Range("X2").Value - Cells(p, "w").Value
            Cells(p, col).Value = Round(Cells(p, col).Value, 0)
        End If
    Next p
End Sub

Note, it should really have error trapping because if the date in D1 does not appear in row 3 (as per your example file) then it will fall over.

BSB