For yrNum = 1 To 100
    If DateValue(Format(base.Range("Q" & j).Value, "mm/dd/yyyy")) >= DateValue(dDate) And _
    DateValue(Format(base.Range("R" & j).Value, "mm/dd/yyyy")) <= DateValue(dDate) Then
    wb2.ActiveSheet.Range("D" & lrow3 + 1).Value = base.Range("T" & j).Value
    wb2.ActiveSheet.Range("E" & lrow3 + 1).Value = base.Range("U" & j).Value
    Exit For
    Else
         base.Range("Q" & j) = ActiveCell
         base.Range("Q" & j) = ActiveCell.Offset(0, 9)
    'after executing this is I have to set this offsetted cell to be the active one
     'on which i will be referring in the next loop
    End If

Next yrNum