Hi John,
If you mean blank, rather than 0 value, then try:
'=============
Public Sub Tester001()
Dim rng As Range
Dim srcRng As Range
Dim destRng As Range
Set srcRng = Range("B4")
Set rng = Range("B11:B32")
On Error Resume Next
Set destRng = rng.SpecialCells(xlCellTypeBlanks)(1)
On Error GoTo 0
If Not destRng Is Nothing Then
srcRng.Copy Destination:=destRng
End If
End Sub
'<<=============
---
Regards,
Norman
"John in Surrey" wrote in message
...
hi folks
Im looping thru a range to find the first blank cell to fill...
of exiting my loop how do I paste into it?
Range("B4").Select
Selection.Copy
For Each c In Worksheets("admit").Range("B11:B32").Cells
If c.Value = 0 Then Exit For
Next
' past data here
how do I past into c.? - the first cell containing 0 that Ive found...
thanks folks
Images of home (NZ)
http://www.titahi-bay.co.nz/home
What we are up to in the UK
http://www.titahi-bay.co.nz