Do you mean to just replace the Exit Sub by

rng2.Cells(4,1).Value = ""

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"jermmcd" wrote in message
...
my table is as follows

A1 B1
001e 4-16-06
002e 1-21-06
002f 3-30-06

I have a formula to find values in my data table and paste them in a very
specific order in another worksheet(AUTO_GRAPH) for 90+ entries:


Dim Rng As Range, Rng1 As Range
Dim rng2 As Range
Application.Worksheets("NEW_WCS").Select
Set Rng = Range("B1").EntireColumn.Find(What:="001E", LookAt:=xlWhole,
LookIn:=xlValues)
If Rng Is Nothing Then
Exit Sub
Else
Set Rng1 = Rng
Do While Rng1.Offset(1, 0).Value = "001E"
Set Rng1 = Rng1.Offset(1, 0)
Loop
Set rng2 = Worksheets("AUTO_WATER_STACK").Cells(Rows.Count,
8).End(xlUp)(5)
Range(Rng, Rng1).Offset(0, 11).Copy
rng2.PasteSpecial xlPasteAll, Transpose:=True
End If

What I need is: if there is no value for "002e", I need the code to
"paste"
a blank (nothing) into the specified row and column identified in the code
(rng2, 4 rows down from the previous line code so I can keep my format on
the
worksheet (AUTOGRAPH) which never changes. Any help is greatly
appreciated!
Thanks!