If Activecell.Offset(1,0).Value < "" The
Range(.EntireRow.Columns("A").Cells(1), _
.Offset(2, 0).EntireRow.Columns("A")).FillDown
End If


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Patrick Simonds" wrote in message
...
How can I skip this code if Cell A1 of the row below the active cell
contains a value?


Range(.EntireRow.Columns("A").Cells(1), _
.Offset(2, 0).EntireRow.Columns("A")).FillDown