works a charm apart from (Rows.Count, "B").End...

should be "A"

thanks very much

p

"Jacob Skaria" wrote:

Try this....

Sub InsertDataintoBlank()

lngLastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row

For lngRow = 1 To lngLastRow
If Trim(Range("A" & lngRow)) < "" Then
strData = Range("A" & lngRow)
Else
Range("A" & lngRow) = strData
End If
Next
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"project manager" wrote:

I have a list of name and data which is gapped and need filling in.

column a row 1 has name1 in it this needs copying down into all the empty
cells under it until the next populated cell. this will work until the
bottom row i guess where i dont want it to copy till the end of the sheet. so
i have a number in column J which is also the amount of empty rows till the
next populated cell below, can it run off this.

any help would be awesome.