Then I miscounted the number of cells between B and I inclusive. the
adjustment would be:

Sub AAtester1()
lastrow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.R ows.Count).Row
For i = 2 To lastrow
If Application.CountA(Cells(i, 2).Resize(1, 8)) = 0 Then
' copy down A to I
Cells(i, 1).Resize(1, 9).FillDown
End If
Next
End Sub

--
Regards,
Tom Ogilvy



"Michael Wise " wrote in
message ...
Tom,
To clarify, yes it will actually be the whole row up to col I that all
cells will be blank. I would appear at first something like this

P02 SDOSR STORE LPG 50492471 SRSTVEP-07 PIPING EXINSP 1-May-08

XXX XXXXX XXXXX XXX XXXXXXXX XXXXXXXXX XXXXXX VISIN1 1-Nov-05

the "X" here represent what cells would be blank for sake of example.
spaces here represent each cell break. I have existing data pretaining
to the same item right above it I need that copied. Although not every
line will be blank. But where those lines are blank up to col. I the
information is needed below. And it is only where all col B-I are blank
this is needed.


---
Message posted from http://www.ExcelForum.com/