If Then igen

Hvis betingelsen er sandt, hvor kan den så ikke udføre 2 betingelser for mig ?

Range("P2").Select
    Do Until IsEmpty(ActiveCell)
          If ActiveCell.Offset(0, 2).Value <> "" Then ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 2) + ActiveCell.Offset(0, 4) And ActiveCell.Offset(0, 3) = Date
        ActiveCell.Offset(1, 0).Select
      Loop

Jeg ønsker at få lagt nogle tal sammen samt sat en dato ind i cellen 3 pladser til højre ?