Set rng = Range(Range("G2"), Range("G" & Rows.Count).End(xlUp))
For Each c In rng
If c.Value = Month4 Then
PasteRange = c.Row
Exit For
End If
Next c
If PasteRange = 0 Then
PasteRange = Cells(Rows.Count, "A").End(xlUp).Row + 1
End If


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"James Stephens" wrote in message
...
I got most of the below code from this newgroup, I have modified it
slightly, my goal is to have it look up a value in column G, in this case
the variable "Month4", if that value exists then assign the row number to
the variable PasteRange, otherwise if the value doesn't exist, then find the
last row with data, add one, and assign that row value to the variable
PasteRange.


Set rng = Range(Range("G2"), Range("G65000").End(xlUp))
For Each c In rng
If c = Month4 Then
PasteRange = ActiveCell.Row
Exit For
Else
End If
Next c
If PasteRange = 0 Then
PasteRange = Cells(Rows.Count, "A").End(xlUp).Row + 1

Else
End If

When I run it, it finds the value if it exists but then just assigns the
first row to the variable PasteRange. I am not sure how to make this code
select the row that it found the value in, and then assign that row to the
variable PasteRange.

Any help on this would be greatly appreciated.

Jim